kurz und knapp:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Length < 1 Then
TextBox1.ResetText()
MsgBox("Dein Wert ist zu klein")
Else
A = 1
End If
If Not IsNumeric(TextBox1) Then
TextBox1.ResetText()
MsgBox("Dein Wert ist keine Zahl")
Else
B = 1
End If
If A = 1 And B = 1 Then
Form1.Timer1.Interval = TextBox1.Text
Form1.Label8.Text = Form1.Timer1.Interval
TextBox1.ResetText()
A = 0
B = 0
End If
End Sub
Danke schonmal an alle !







