[VisualBasic] Bilder laden und Zusammenfassung in eine Funktion

 Private Sub Timer1_tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 'Timer zählt nach jedem Interval die Score'
 Select Case (spieler)
 Case 1
 compwahl = computerki(compwahl)
 If (spielerwahl(0) = compwahl) Or (spielerwahl(0) <> compwahl) Then
 'Unentschieden,Keine Zählung'
 End If

 If (spielerwahl(0) = 1 And compwahl = 2) Or (spielerwahl(0) = 2 And compwahl = 3) Or (spielerwahl(0) = 3 And compwahl = 1) Then 'Diese Schleife überprüft ob Spieler1 gewinnt'
 gewinner(0) = gewinner(0) + 1 'Zählung der gewonnenen Spiele für Spieler1'
 comploser = comploser + 1 'Zählung der verlorenen Spiele für Computerspieler'
 End If
 If (spielerwahl(0) = 1 And compwahl = 3) Or (spielerwahl(0) = 2 And compwahl = 1) Or (spielerwahl(0) = 3 And compwahl = 2) Then 'Diese Schleife überprüft ob Computer gewinnt'
 compwinner = compwinner + 1 'Zählung der gewonnenen Spiele für Computer'
 verlierer(0) = verlierer(0) + 1 'Zählung der verlorenen Spiele für Spieler1'
 End If
 Label7.Text = (gewinner(0)) 'später entfernen'
 Label8.Text = (compwinner) 'später entfernen'

 Case 2

 If (spielerwahl(0) = spielerwahl(1)) Or (spielerwahl(0) <> spielerwahl(1)) Then
 'Unentschieden,Keine Zählung'
 End If

 If (spielerwahl(0) = 1 And spielerwahl(1) = 2) Or (spielerwahl(0) = 2 And spielerwahl(1) = 3) Or (spielerwahl(0) = 3 And spielerwahl(1) = 1) Then 'Diese Schleife überprüft ob Spieler1 gewinnt'
 gewinner(0) = gewinner(0) + 1 'Zählung der gewonnenen Spiele für Spieler1'
 verlierer(1) = verlierer(1) + 1 'Zählung der verlorenen Spiele für Spieler2'
 End If
 If (spielerwahl(0) = 1 And spielerwahl(1) = 3) Or (spielerwahl(0) = 2 And spielerwahl(1) = 1) Or (spielerwahl(0) = 3 And spielerwahl(1) = 2) Then 'Diese Schleife überprüft ob Spieler2 gewinnt'
 gewinner(1) = gewinner(1) + 1 'Zählung der gewonnenen Spiele für Spieler2'
 verlierer(0) = verlierer(0) + 1 'Zählung der verlorenen Spiele für Spieler1'
 End If