Hoger-Lager: een uitwerking in .NET

Voor de settings plaatsen we deze code in Form_Load (het inladen van het formulier) om de settings in te lezen en een te raden getal te bepalen:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Settings.Reload()
If My.Settings("top") + My.Settings("links") + My.Settings("breedte") + My.Settings("hoogste") + My.Settings("score") = 0 Then Exit Sub 'geen settings opgeslagen
Me.Top = My.Settings("top")
Me.Left = My.Settings("links")
Me.Width = My.Settings("breedte")
Me.Height = My.Settings("hoogste")
score = My.Settings("score")
Randomize()
teradengetal = Int(Rnd() * 100)
End Sub

en in Protected Overrides Sub Dispose (het afsluiten van het formulier)
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
My.Settings("top") = Me.Top
My.Settings("links") = Me.Left
My.Settings("breedte") = Me.Width
My.Settings("hoogste") = Me.Height
My.Settings("score") = score
My.Settings.Save()
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
Het programma zelf ziet er als volgt uit:
Private Sub cmdGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGo.Click
If Not IsNumeric(Me.txtPoging.Text) Then Exit Sub
Try
aantalkeer += 1
If teradengetal = CInt(txtPoging.Text) Then
MsgBox("OK. Je hebt geraden in " & aantalkeer & " keer")
If score = 0 Then score = aantalkeer
If aantalkeer < score Then
MsgBox("Een nieuw record. Het oude was " & score)
score = aantalkeer
End If
End If
If teradengetal > CInt(txtPoging.Text) Then
MsgBox("Hoger")
txtPoging.Text = ""
End If
If teradengetal < CInt(txtPoging.Text) Then
MsgBox("Lager")
txtPoging.Text = ""
End If
Catch ex As Exception
End Try
End Sub