Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
        Dim v As Integer
        v = InputBox("Geschwindigkeit [m/s]", "Eingabe")
        If Not IsNumeric(v) Then Exit Sub
        Dim r As Integer
        r = v
        Dim b As Integer
        b = 0.5 * v * v / 7
        Dim s As String
        s = "Reaktionsweg : " & r.ToString & " m" & vbCr
        s = s + "Bremsweg : " & b.ToString & " m" & vbCr
        s = s + "Anhalteweg: " & (r + b).ToString & " m"
        Dim c As String
        c = "Ergebnis"
        MsgBox(s, vbOKOnly, c)
    End Sub
 
    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem3.Click
        End
    End Sub
End Class