Stò cercando di realizzare una piccola applicazione che mi incolli un testo (che ho dapprima copiato negli appunti) nell'applicazione corrente (l'applicazione è già aperta, es. notepad) ho provato in due modi, l'applicazione è un modulo senza nessun form :

1° tentativo :

codice:
Sub Main()
Clipboard.Clear
Clipboard.SetText "Pippo"

SendKeys "^v"
End Sub
2° tentativo :

codice:
Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
    hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long

Private Const WM_PASTE = &H302

Sub Main()
Clipboard.Clear
Clipboard.SetText "Pippo"

SendMessage GetForegroundWindow, WM_PASTE, 0, 0
End Sub
Con nessuna delle due riesco a farlo funzionare.. c'è qualche cosa che mi sono perso? Ho provato, nel secondo tentativo, dopo aver rintracciato l'handle corretto a fare il sendmessage direttamente dalla finestra di debug ma non succede nulla come se non lo accettasse.. qualche idea?

Grazie a tutti