Basic Univers 
;- Générer un clic gauche
Procedure Click(hWnd)
  PostMessage_(hWnd, #WM_LBUTTONDOWN, 0, 0)
  PostMessage_(hWnd, #WM_LBUTTONUP, 0, 0)
EndProcedure

;- Générer un double-clic gauche
Procedure DoubleClick(hWnd)
  SendMessage_(hWnd, #WM_LBUTTONDBLCLK, 0, 0)
EndProcedure