Private Sub Button1_Click ByVal sender As System Object ByVal As Syste

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Dim a As String = InputBox("Введите интервал (мин)", "Ввод временного интервала")
If a = String.Empty Then
MsgBox("Не задавать интервал?")
Else
Timer1.Interval = CInt(a) * 1000 * 60
MessageBox.Show("Интервал задан!", "OK")
End If
End Sub