stop your timer when you're done !

VB Code:
  1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

  2. MsgBox("ok")

  3. Me.Timer1.Enabled = False

  4. End Sub