Scusate ho provato questo codice ma succede una cosa strana... ho tre label che contengono i valori: 10 , 11 , 12.
La finestra immediata mi mostra i valori corretti mentre sul notepad mi viene visualizzato:
12
12
12

Risulta solo l'ultimo, come è possibile?



codice:
    Private Sub Command1_Click()
TaskId = Shell("Notepad", vbMaximizedFocus)
AppActivate TaskId
    Clipboard.Clear
    Clipboard.SetText (Label1.Caption)
    Debug.Print Clipboard.GetText
    SendKeys "^V" ' ctrl-V
    SendKeys "{ENTER}"

    Clipboard.Clear
    Clipboard.SetText Label2.Caption
        Debug.Print Clipboard.GetText
        SendKeys "^V" ' ctrl-V
        SendKeys "{ENTER}"
    Clipboard.Clear
    Clipboard.SetText Label3.Caption
        Debug.Print Clipboard.GetText
        SendKeys "^V" ' ctrl-V
End Sub
Ho provato ad inserire doevents dopo ogni ctrl-v e ora funziona, ma come si spiega la cosa?

Grazie