Visual Basic 6 - Simulare Click del Mouse

Public Declare Sub Mouse_Event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSE_LEFTDOWN = &H2
Public Const MOUSE_LEFTUP = &H4
Public Const MOUSE_MIDDLEDOWN = &H20
Public Const MOUSE_MIDDLEUP = &H40
Public Const MOUSE_RIGHTDOWN = &H8
Public Const MOUSE_RIGHTUP = &H10
Public Const MOUSE_MOVE = &H1
Public Sub Click()
Mouse_Event MOUSE_LEFTDOWN, 0, 0, 0, 0
[b]Mouse_Event MOUSE_LEFTUP, 0, 0, 0, 0[/b]
End Sub

Call Click