主题：[求助]菜单

Private 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)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '鼠标左键按下
Private Const MOUSEEVENTF_LEFTUP = &H4 ' 鼠标左键弹起
Private Const MOUSEEVENTF_MOVE = &H1 ' 鼠标移动
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 ' 鼠标右键按下
Private Const MOUSEEVENTF_RIGHTUP = &H10 ' 鼠标右键弹起
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long '获得鼠标
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long '移动鼠标
Private Type POINTAPI
X As Long
Y As Long
End Type Private Sub Command1_Click()
SetCursorPos 25, 30
mouse_event &H2 Or &H4, 0, 0, 0, 0
mouse_event &H2 Or &H4, 0, 0, 0, 0
End Sub