Private Sub btnBerechnen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnBerechnen.Click
        Dim txtStrecke As Double
        Dim txtZeit As Double
        Dim zwe_1 As Double
        Dim zwe_2 As Double = txtStrecke / zwe_1
 
        If rdoKilometer.Checked = True Then
            If rdoKM_h.Checked = True Then
                zwe_1 = txtZeit / 3600
                zwe_2 = txtStrecke / zwe_1
                Me.lblErgebnis.Text = zwe_2
            End If
        End If
    End Sub