Visual Basic - ¿COMO PUEDO HACER UN CLICK DEL RATON AUTOMÁTICO?

Hola, Podría decirme alguien como puedo hacer para que mi programa efectue automaticamente un Click o un DobleClick sin que sea yo el que de al botón del Ratón??

Muchas Gracias.

Simplemente cuando quieras hacer click sobre un objeto debes escribir:
Objeto.mouse_click

Gracias por Responder Fernan, pero no es eso lo que quiero, lo que quiero es que haga un click del ratón automáticamente sea donde sea donde esté el raton, aun fuera del formulario...(no en ningun objeto en particular)...

Te mando codigo para hacerlo usando la API de windows, este programa pulsa distintas partes de la pantalla.
Si no lo entiendes mandame un e-mail y te lo explico, si quieres que te mande todos los ficheros de VB dame tu e-mail.

Hasta luego.

<<<<-------- CUT CUT CUT ---------------->>>>>>>>>>>>>>

Private Type POINTAPI
x As Long
y As Long
End Type
Dim MousePoint As POINTAPI
Dim retval As Long ´ return value
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4

Private Sub Timer1_Timer()
´Get the position of the cursor
GetCursorPos MousePoint
´Convert the point to our forms coordinates

´Show the position
box_X = MousePoint.x
BOX_Y = MousePoint.y
box_X = (Rnd * 800) + 100
BOX_Y = (Rnd * 500) + 70
Timer1.Interval = Rnd * 10000
mouse_event MOUSEEVENTF_LEFTDOWN, box_X, BOX_Y, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, box_X, BOX_Y, 0, 0
retval = SetCursorPos(box_X, BOX_Y) ´ move the cursor to (100,200)
End Sub