'Hier wird abgefangen, ob im Textfeld eingegebene Text Numerisch oder Backspace 
' ist
 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not e.KeyChar.IsDigit(e.KeyChar) AndAlso e.KeyChar <> vbBack Then
            e.Handled = True
        End If
  End Sub

'Damit wird verhindert, dass die User selber Text in die ComboBoxes schreiben 
' können
Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList