Leren programmeren: stopafastand

Op een formulier plaatsen we:
- Een tekstvak om de snelheid in te tikken
- Een aankruisvak om aan te geven of het wekdek nat is (chkNetwegdek).
- Een knop (cmdBereken).
- Een label om het resultaat in weer te geven. We letten erop dat het label hoog genoeg is (lblResultaat).
- Enkele labels om de gebruiker duidelijk te maken waar die elementen voor dienen. In VB en VB .NET kan je daarvoor gebruik maken van een Tooltip.
De code ziet er zo uit:

Private Sub cmdBereken_Click()
Dim snelheid As Single
Dim remafstand As Single
Dim stopafstand As Single
Dim reactiefastand As Single
Dim wekdegnat As Boolean
If Not IsNumeric(txtSnelheid.Text) Then Exit Sub
snelheid = CSng(txtSnelheid.Text)
wekdegnat = chkNatwegdek.Value 'true indien true, false idnien false
remafstand = (snelheid / 10) ^ 2 / 2
If wekdegnat Then remafstand = remafstand * 1.5
reactieafstand = (snelheid / 10) * 3
stopafstand = remafstand + reactieafstand
bericht = "Je snelheid is " & snelheid & " km/u." & vbCrLf
bericht = bericht & "De remafstand is " & remafstand & " m." & vbCrLf
bericht = bericht & "De reactieafstand is " & reactieafstand & " m." & vbCrLf
bericht = bericht & "De stopafstand is " & stopafstand & " m."
Me.lblResultaat.Caption = bericht
'in .NET: lblResultaat.Text
End Sub