Public Class Form1
   Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Int32, _
     ByVal dx As Int32, ByVal dy As Int32, ByVal cbuttons As Int32, _
     ByVal dwExtraInfo As Int32)
 
   Private Const MOUSEEVENTF_LEFTDOWN = &H2
   Private Const MOUSEEVENTF_LEFTUP = &H4
   Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
   Private Const MOUSEEVENTF_MIDDLEUP = &H40
   Private Const MOUSEEVENTF_RIGHTDOWN = &H8
   Private Const MOUSEEVENTF_RIGHTUP = &H10
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      MsgBox("Klick")
   End Sub
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      Timer1.Interval = 5000
      Timer1.Enabled = True
   End Sub
 
   Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles Timer1.Tick
      mouse_event(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0, 0)
   End Sub
End Class

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