Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()

    Set WshShell = CreateObject("WScript.Shell")
   
    WshShell.Run "SnagIt32.exe", SW_MINIMIZED
    wscript.Sleep 1000
    Sleep (3000)
    WshShell.SendKeys "^+p"
    Sleep (3000)
    WshShell.AppActivate "Snagit Studio"
    Sleep (3000)
    WshShell.SendKeys "^e"
   
    Sleep (3000)
    WshShell.SendKeys "c:\test{Enter}"
    Sleep (3000)
    WshShell.SendKeys "%{F4}"
    Sleep (3000)
    WshShell.SendKeys "%n"
   
End Sub


http://www.devpia.com/Forum/BoardView.aspx?no=207534&page=1&Tpage=27&forumname=vb_qa&stype=&ctType=&answer=&KeyR=titlecontent&K