sayı tahmin oyunu(number guessing game)

Public Class Form1
Dim a As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Button2.Visible = True
Button1.Visible = False
Button3.Visible = True

a = (Rnd() * 99)
Label1.Text = a


End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
If TextBox1.Text = Label1.Text Then
MsgBox("BİLDİNİZ")
ElseIf TextBox1.Text > Label1.Text Then
MsgBox("DAHA KÜÇÜK SAYI GİRİNİZ")
ElseIf TextBox1.Text < Label1.Text Then
MsgBox("DAHA BÜYÜK SAYI GİRİNİZ")
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

a = (Rnd() * 99)
Label1.Text = a
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

a = (Rnd() * 99)
Label1.Text = a
End Sub
End Class