Private Sub Button1000_Click_1(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1000.Click
        Call SAP()
        Call PAA()
        Call SFA()
        Call LONO()
        Call OUTL()
        Call xDKI()
End Sub
 
 
 
 
 
Public Sub SAP()
        Shell("C:\Program Files\SAP\FrontEnd\SAPgui\saplgpad.exe" & _
          "/INI_FILE=C:\WINNT\INI_FILES\de_SAP_PROD.INI", vbNormalFocus)
    End Sub
 
    Public Sub PAA()
        Shell("C:\Program Files\camos\camoswinclient.exe " & _
          "-host=adecam02.de.festo.net -knb=PAA -ver=2.0w" & _
          "-serverpath=D:\CamosApps\ -UserParam1=confidential", vbNormalFocus)
    End Sub
 
    Public Sub SFA()
        Shell("C:\Program Files\FCS\SFA 2000\SWB2K\SWB2K.exe", vbNormalFocus)
    End Sub
 
    Public Sub LONO()
        Shell("C:\Program Files\Lotus\Notes\notes.exe" & _
          "=U:\Appl\Notes\notes.ini", vbNormalFocus)
    End Sub
 
    Public Sub OUTL()
        Shell("C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE", _
          vbNormalFocus)
    End Sub