Public Function ExecCmd(ByVal process As String) As Boolean
        Dim prozess As New Process
        Dim Para As String = ""
 
        If process.IndexOf("/") > -1 Then
            Para = process.Substring(process.IndexOf("/"))
            process = process.Substring(0, process.IndexOf("/"))
        ElseIf process.IndexOf(" : ") > -1 Then
            Para = " - " & process.Substring(process.IndexOf(" : ") + 3)
            process = process.Substring(0, process.IndexOf(" : "))
        End If
 
        Dim FI As System.IO.FileInfo
        Dim p As New Process
        FI = New System.IO.FileInfo(process)
        If FI.Exists Then
            Dim psi As New ProcessStartInfo(process)
            p.StartInfo = psi
            psi.Arguments = Para
            p.Start()
            p.WaitForExit()
        Else
            Return False
            Exit Function
        End If
        Return True
    End Function