Mobile

Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _<br />
ByVal hWnd As Long, ByVal uMsg As Long, _<br />
ByVal wParam As Long, ByVal lParam As Long) As Long

<br />
...P/INVOKE<br />
    Declare Function GetFocus Lib "coredll.dll" () As IntPtr<br />
    Declare Function SendMessage Lib "coredll.dll" Alias "SendMessageA" ( _<br />
    ByVal hWnd As IntPtr, ByVal uMsg As Long, _<br />
    ByVal wParam As Long, ByVal lParam As Long) As Long<br />
...END P/INVOKE<br />
<br />
...SUB<br />
        Dim hWnd As IntPtr<br />
        hWnd = GetFocus()<br />
        Try<br />
            SendMessage(hWnd, WM_COPY, 0, 0)<br />
            MsgBox("SUCCESS")<br />
        Catch ex As Exception<br />
            MsgBox("FAILED" & vbCrLf & ex.Message)<br />
        End Try<br />
...END SUB<br />

Public Function gethWnd(ByVal ctrl As Control)<br />
    Dim hOldWnd As IntPtr = GetCapture()<br />
    ctrl.Capture = True<br />
    Dim hWnd As IntPtr = GetCapture()<br />
    ctrl.Capture = False<br />
    SetCapture(hOldWnd)<br />
    Return hWnd<br />
End Function

Declare Function GetCapture Lib "coredll.dll" () As IntPtr<br />
Declare Function SetCapture Lib "coredll.dll" (ByVal hWnd As IntPtr) As IntPtr

Public Const EM_CANUNDO = &HC6<br />
Public Const EM_EMPTYUNDOBUFFER = &HCD<br />
Public Const WM_COPY = &H301<br />
Public Const WM_PASTE = &H302<br />
Public Const WM_CLEAR = &H303<br />
Public Const WM_UNDO = &H304