Private Sub Automatic_Tick(sender As System.Object, e As System.EventArgs) Handles Automatic.Tick
Automatic.Interval = TextBox1.Text
If Automatic.Enabled = True Then
Button1.Enabled = False
Shell("net stop dhcp")
End If
End Sub