'Controls - How to select the text in a textbox and send it to the clipoard.
Option Explicit
 
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_COPY = &H301
Private Const EM_SETSEL = &HB1
 
Private Sub Form_Load()
    SendMessage txtSearch.hwnd, EM_SETSEL, 0, 0
    SendMessage txtSearch.hwnd, WM_COPY, 0, 0
End Sub