Public Class Form1
 
   Private WithEvents myTimer As New Windows.Forms.Timer
   Private i As Integer = 0
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      myTimer.Interval = 100
      myTimer.Enabled = True
   End Sub
 
   Private Sub myTimer_Tick(ByVal sender As Object, ByVal e As _
     System.EventArgs) Handles myTimer.Tick
      i += 1
      TextBox1.Text = i.ToString
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control