Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        ComboBox2.Items.Add("km/h")
        ComboBox2.Items.Add("m/s")
        ComboBox1.Items.Add("Trocken")
        ComboBox1.Items.Add("Nass")
        ComboBox1.Items.Add("Schnee")
        TextBox2.Enabled = False
        RadioButton1.Checked = True
    End Sub
 
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Me.ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
    End Sub
 
    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem6.Click
        End
    End Sub
 
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        TextBox2.Enabled = False
        ComboBox1.Enabled = True
    End Sub
 
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        TextBox2.Enabled = True
        ComboBox1.Enabled = False
    End Sub
 
    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem3.Click
        Dim F As New Über()
        F.ShowDialog()
    End Sub
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If (TextBox1.Text = "0") Or ((TextBox2.Text = "0") And ( _
        RadioButton2.Checked = True)) Then
            MessageBox.Show("Bitte keine 0 eingeben")
            Exit Sub
        End If
        Dim eingabe As Integer
        If Not IsNumeric(TextBox1.Text) Then
            MessageBox.Show(TextBox1.Text.ToString + " ist keine Zahl!!")
            Exit Sub
        End If
        If RadioButton2.Checked = True Then
            If Not IsNumeric(TextBox2.Text) Then
                MessageBox.Show(TextBox2.Text.ToString + " ist keine Zahl!!")
                Exit Sub
            End If
        End If
        If ComboBox2.Text = "km/h" Then
            eingabe = (TextBox1.Text / 3.6)
        Else : eingabe = TextBox1.Text
        End If
 
        Dim r As Integer
        Dim v As Integer
        Dim b As Integer
        Dim a As Integer
        v = eingabe
        r = v
        If RadioButton1.Checked = True Then
            If ComboBox1.Text = "Trocken" Then
                a = 7
            ElseIf ComboBox1.Text = "Nass" Then
                a = 3.5
            ElseIf ComboBox1.Text = "Schnee" Then
                a = (7 / 3)
            End If
        Else : a = TextBox2.Text
        End If
        b = 0.5 * ((v * v) / a)
        Label4.Text = r.ToString & " m"
        Label3.Text = b.ToString & " m"
        Label5.Text = (r + b).ToString & " m"
    End Sub
 
    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        MessageBox.Show("Noch nicht in dieser Version vorhanden.")
    End Sub
 
    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        MessageBox.Show("Noch nicht in dieser Version vorhanden.")
    End Sub
 
    Private Sub MenuItem4_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem4.Click
        Dim writer As StreamWriter = File.CreateText("c:\temp\test.txt")
        writer.WriteLine("Hallo World")
        writer.Close()
    End Sub
 
    Private Sub MenuItem5_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem5.Click
        Dim reader As StreamReader = File.OpenText("c:\temp\test.txt")
        Dim zeile As String
        While (reader.Peek() > -1)
            zeile = reader.ReadLine()
        End While
        reader.Close()
    End Sub
End Class