Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const WM_PASTE = &H302 Private Sub Form_Load() PostMessage &H8E052C, WM_PASTE, 0, 0 End Sub
Private Const WM_PASTE = &H302
Private Sub Form_Load()
PostMessage &H8E052C, WM_PASTE, 0, 0
End Sub