[VB6] Usare WM_MOUSEMOVE

[c-enrico]

con queste righe di codice il mouse si dovrebbe spostare
invece non si muove, mi spiegate perchè? GRAZIE

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_MOUSEMOVE = &H200

Private Sub Command1_Click()

 Dim retval As Long
  
 retval = SendMessage(Me.hWnd, WM_MOUSEMOVE, 0, 0)
 
End Sub

Private Sub Command2_Click()
 
 End
 
End Sub