vb.net Base Converter

Option Explicit On
Option Strict On

Public Class frmCOnvert
Dim input As Long
Dim output As String

Private Sub btnConvert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConvert.Click
If IsNumeric(txtinout.Text) Then
input = CLng(txtinout.Text)
End If
If RadBin.Checked = True Then
output = Convert.ToString(input, 2)
txtinout.Text = output
End If
If RadOct.Checked = True Then
output = Convert.ToString(input, 8)
txtinout.Text = output
End If
If radHex.Checked = True Then
output = Convert.ToString(input, 16)
txtinout.Text = output
End If
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtinout.Clear()
input = 0
output = CStr(0)
End Sub

Private Sub btnZero_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnZero.Click
txtinout.Text &= "0"
End Sub

Private Sub BtnPoint_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BtnPoint.Click
txtinout.Text &= "."
End Sub

Private Sub btn1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn1.Click
txtinout.Text &= "1"
End Sub

Private Sub btn2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn2.Click
txtinout.Text &= "2"
End Sub

Private Sub btn3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn3.Click
txtinout.Text &= "3"
End Sub

Private Sub btn4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn4.Click
txtinout.Text &= "4"
End Sub

Private Sub btn5_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn5.Click
txtinout.Text &= "5"
End Sub

Private Sub btn6_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn6.Click
txtinout.Text &= "6"
End Sub

Private Sub btn7_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn7.Click
txtinout.Text &= "7"
End Sub

Private Sub btn8_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn8.Click
txtinout.Text &= "8"
End Sub

Private Sub btn9_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn9.Click
txtinout.Text &= "9"
End Sub

End Class

Guess Number Game in VB.net

frmGame Codes
Option Explicit On
Option Strict On

Public Class frmGuess

Dim RandomClass As New Random()
Dim tries As Integer = 0
Dim number As Integer
Dim max As Integer = 100
Dim min As Integer = 0

Private Sub frmGuess_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
number = RandomClass.Next(1, 100)
lbldisplay.Text = "I've a number between 1 and 100" & vbCrLf & _
"Can You Guess My Number" & vbCrLf & "Please Enter the First Guess"
End Sub


Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnCalculate.Click

If (CInt(txtEntry.Text)) = number Then
Me.BackColor = Color.Green
tries += 1
frmBegin.lblWinDisplay.Text = "You Win"
frmBegin.lblTries.Text = "Number of Tries= " & tries
btnCalculate.Text = ("&Try Again")
frmBegin.BackColor = Color.GreenYellow
Me.Close()
frmBegin.Show()

ElseIf (CInt(txtEntry.Text)) > (number) Then
Me.BackColor = Color.Red
tries += 1
lbldisplay.Text = "High" & vbCrLf & "Try Again"
max = CInt(txtEntry.Text)

ElseIf (CInt(txtEntry.Text)) < (number) Then Me.BackColor = Color.Blue tries += 1 lbldisplay.Text = "Low" & vbCrLf & "Try Again" min = CInt(txtEntry.Text) End If End Sub Private Sub txtEntry_Validated(ByVal sender As Object, ByVal e As _ System.EventArgs) Handles txtEntry.Validated If CInt(txtEntry.Text) > 100 Then
MessageBox.Show("Enter a Number Below 100", "NOT ALLOWED")
End If

If CInt(txtEntry.Text) > max Then
MessageBox.Show("Number Higher than " & max & " is not allowed", _
"NUMBER IS HIGH")
End If

If CInt(txtEntry.Text) <>