Public Class Form1
    Dim x, y, z, i As Integer
 
    Private Sub tmrZahl1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tmrZahl1.Tick
        Randomize()
        x = Int(Rnd() * 7) + 1
        lblEins.Text = x
    End Sub
 
    Private Sub cmdStop1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStop1.Click
        tmrZahl1.Enabled = False
        If x = 7 And y = 7 And z = 7 Then
            i = i + 100
            lblGeld.Text = i
        Else
            If x = 7 And y = 7 And z <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If z = 7 And x = 7 And y <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If y = 7 And z = 7 And x <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
        End If
    End Sub
 
    Private Sub cmdStop2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStop2.Click
        tmrZahl2.Enabled = False
        If x = 7 And y = 7 And z = 7 Then
            i = i + 100
            lblGeld.Text = i
        Else
            If x = 7 And y = 7 And z <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If z = 7 And x = 7 And y <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If y = 7 And z = 7 And x <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
        End If
    End Sub
 
    Private Sub cmdStop3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStop3.Click
        tmrZahl3.Enabled = False
        If x = 7 And y = 7 And z = 7 Then
            i = i + 100
            lblGeld.Text = i
        Else
            If x = 7 And y = 7 And z <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If z = 7 And x = 7 And y <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If y = 7 And z = 7 And x <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If x <> 7 And y <> 7 And z <> 7 Then
                i = i - 5
                lblGeld.Text = i
            End If
        End If
    End Sub
 
    Private Sub cmdStoppen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStoppen.Click
        If i = 0 Then
            lblGeld.Text = "Game Over Baby"
            cmdNeustart.Visible = True
            cmdStart.Visible = False
            cmdStop1.Visible = False
            cmdStop2.Visible = False
            cmdStop3.Visible = False
            cmdStoppen.Visible = False
        End If
        tmrZahl1.Enabled = False
        tmrZahl2.Enabled = False
        tmrZahl3.Enabled = False
        If x = 7 And y = 7 And z = 7 Then
            i = i + 100
            lblGeld.Text = i
        Else
            If x = 7 And y = 7 And z <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If z = 7 And x = 7 And y <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If y = 7 And z = 7 And x <> 7 Then
                i = i + 50
                lblGeld.Text = i
            End If
            If x <> 7 And y <> 7 And z <> 7 Then
                i = i - 10
                lblGeld.Text = i
            End If
        End If
    End Sub
 
    Private Sub tmrZahl2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tmrZahl2.Tick
        Randomize()
        y = Int(Rnd() * 7) + 1
        lblZwei.Text = y
    End Sub
 
    Private Sub tmrZahl3_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tmrZahl3.Tick
        Randomize()
        z = Int(Rnd() * 7) + 1
        lblDrei.Text = z
    End Sub
 
    Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStart.Click
        tmrZahl1.Enabled = True
        tmrZahl2.Enabled = True
        tmrZahl3.Enabled = True
    End Sub
 
    Private Sub cmdNeustart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdNeustart.Click
        i = 100
        lblGeld.Text = i
        cmdStart.Visible = True
        cmdStoppen.Visible = True
        cmdStop1.Visible = True
        cmdStop2.Visible = True
        cmdStop3.Visible = True
        cmdNeustart.Visible = False
    End Sub
End Class