Public Class Form1
Private Ncount As Integer = 0
Private Nminute As Integer = 4
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = nminute * 60000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'write your code
Ncount = Ncount + 1
If Ncount > 10 Then
Timer1.Stop()
'write your code to check
End If
End Sub
End Class