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 !