Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim eingabe As Object
        eingabe = InputBox("Geschwindigkeit [m/s]", "Eingabe")
        If Not IsNumeric(eingabe) Then
            MessageBox.Show(eingabe.ToString + " ist keine zahl!!")
            Exit Sub
        End If
        Dim v As Integer = Convert.ToInt32(eingabe)
        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
 
    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem4.Click
        Dim F As New frmVersion()
        F.ShowDialog()
    End Sub
 
    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem5.Click
        Dim F As New frmHilfe()
        F.ShowDialog()
    End Sub
 
    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem6.Click
        Dim F As New frmEntwickler()
        F.ShowDialog()
    End Sub
End Class
 
mfg stefan