'**Win32 API Declarations MOUSEMOVE
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
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)
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4


AppActivate "Hostaccess"

'Locate Incident Number Start Point
SetCursorPos  209 ,  50 

' * Hold down CTRL
'SendKeys "(^)"

'Hold left down
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0


'Locate Incident Number End Point
SetCursorPos  290 ,  50 

mouse_event MOUSEEVENTF_LEFTUP,  0 ,  0 ,  0 ,  0    ' Release left Click

'Pause
Dim i As Integer

For i =  1  To  5 
    Sleep  50  'delay in milliseconds
    
Next
'Locate and press Copy button
SetCursorPos  135 ,  20 
mouse_event MOUSEEVENTF_LEFTDOWN,  0 ,  0 ,  0 ,  0 
mouse_event MOUSEEVENTF_LEFTUP,  0 ,  0 ,  0 ,  0 
AppActivate "Microsoft Access"
[Form_Main_Frm].Incident_Number.SetFocus

For i =  1  To  5 
    Sleep  50  'delay in milliseconds
    
Next

SendKeys "^(v)"
End Sub
Sub hit()
AppActivate "Microsoft Access"
[Form_Main_Frm].SetFocus
[Form_Main_Frm].[incident number].SetFocus
End Sub