Lucky 7 Game Coding using Vb.net

As part of my first year ICT practitioner Module I had to build this Lucky 7 gAME using vb.net.. it ws fun and engaging so i decided to share the coding with everyone(this is better thn saying i wanted to show off Grin ... HEY HOLD on i just said tht . Well nvrmind )

Public Class Form2
Inherits System.Windows.Forms.Form
'declaration of variables used by the program
Dim guess1 As Integer
Dim guess2 As Integer
Dim guess3 As Integer
Dim wincount As Integer
Dim spincount As Integer

Private Sub clearvalues()
'initialises the values of the count values and generates 3 random numbers
wincount = 0
spincount = 0
Randomize()
Randomize()
guess1 = (Int(Rnd() * 9) + 0)
guess2 = (Int(Rnd() * 9) + 0)
guess3 = (Int(Rnd() * 9) + 0)

End Sub
Private Sub rndvalues()
'calls randomizer function and generates 3 random values
Randomize()
guess1 = (Int(Rnd() * 9) + 0)
guess2 = (Int(Rnd() * 9) + 0)
guess3 = (Int(Rnd() * 9) + 0)

End Sub
Private Sub showvalues()
'displays the random numbers in respective label
lblguess1.Text = guess1
lblguess2.Text = guess2
lblguess3.Text = guess3



End Sub
Private Sub wincounter()
'checks each random number for the value 7 and displays the approriate message
If guess1 = guess2 = guess3 = 7 Then
Call incrementwincountby3()

lblmsg.Text = Form1.newname.Text & " " & "You have hit the JACKPOT"
System.Console.Beep()

Else
If guess1 = guess2 = 7 Then
Call incrementwincountby2()

lblmsg.Text = Form1.newname.Text & " " & "You have a Double win"
System.Console.Beep()


Else
If guess1 = guess3 = 7 Then
Call incrementwincountby2()

lblmsg.Text = Form1.newname.Text & " " & "You have a Double win"
System.Console.Beep()

Else
If guess3 = guess2 = 7 Then
Call incrementwincountby2()

lblmsg.Text = Form1.newname.Text & " " & "You have a Double win"
System.Console.Beep()
Else
If guess1 = 7 Then
incrementwincountby1()

lblmsg.Text = Form1.newname.Text & " " & "You are a winner"
System.Console.Beep()

Else
If guess2 = 7 Then
incrementwincountby1()

lblmsg.Text = Form1.newname.Text & " " & "You are a winner"
System.Console.Beep()


Else
If guess3 = 7 Then
incrementwincountby1()

lblmsg.Text = Form1.newname.Text & " " & "You are a winner"
System.Console.Beep()

Else

lblmsg.Text = Form1.newname.Text & " " & "Try Again"
End If
End If
End If
End If
End If
End If
End If

End Sub
Private Sub incrementwincountby1()
'adds 1 to the wincount
wincount = wincount + 1
lblwincount.Text = wincount


End Sub
Private Sub incrementwincountby2()
'adds 2 to the wincount
wincount = wincount + 2
lblwincount.Text = wincount

End Sub
Private Sub incrementwincountby3()
'adds 3 to the wincount
wincount = wincount + 3
lblwincount.Text = wincount

End Sub

Private Sub spincounter()
'adds 1to the spincount
spincount = spincount + 1
lblspincount.Text = spincount


End Sub
Private Sub cmdspin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdspin.Click
'gets all the functions to run on the clicking spin button
Call rndvalues()
Call showvalues()
Call wincounter()
Call spincounter()


End Sub
Private Sub cmdexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdexit.Click
Me.Close()
Form1.Close()

End Sub
Private Sub cmdrestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrestart.Click
' calls required functions to restart application
Call clearvalues()
Call showvalues()



End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'calls procedures to initializes the values of the application
Call clearvalues()
Call showvalues()
lblwincount.Text = wincount
lblspincount.Text = spincount
lblmsg.Text = "Try your hand"

End Sub


End Class