Private Sub Form1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.GotFocus
        AppActivate("Adobe Acrobat Professional")
        SendKeys.Send("%Cf")
        SendKeys.Send("{ENTER}")
        SendKeys.Send("{TAB}")
        SendKeys.SendWait("{ENTER}")
        Dim a As String
        a = MsgBox("Process is Completed?", , "Adobe Acrobat")
        End
    End Sub