[Tasos]

Καλημέρα!
Δοκιμάστε το παρακάτω:

'Σε μια λειτουργική μονάδα:

Option Explicit

Public Enum TvAction
    Action_RemoteControl = 0
    Action_FileTransfer = 1
    Action_VPN = 2
End Enum

Public Function TVConnect(TvID As String, TvPass As String, _
                          Optional Action As TvAction = TvAction.Action_RemoteControl)
    Dim fso As Object
    Dim strComputer As String
    Dim TvArgs As String
    Dim objWMIService As Object
    Dim colItems As Object
    Dim objItem As Object
    Dim TVPath As String

    strComputer = "."

    TvArgs = " -i " & TvID & " --Password " & TvPass

    If Action = Action_FileTransfer Then
        TvArgs = TvArgs & " -m fileTransfer"

    ElseIf Action = Action_VPN Then
        TvArgs = " -m vpn"

    End If
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service", , 48)
    For Each objItem In colItems
        If objItem.Name Like "TeamViewer*" Then
            TVPath = Replace(objItem.pathname, Chr(34), "")
            TVPath = fso.GetParentFolderName(TVPath) & "\Teamviewer.exe"
            If fso.FileExists(TVPath) Then
                TVPath = Chr(34) & TVPath & Chr(34) & TvArgs
                Shell TVPath, vbNormalFocus
            End If
            Exit For
        End If
    Next
End Function

'Στο κουμπί της φόρμας:
Private Sub cmdTVConnect_Click()
'Το όρισμα Action_RemoteControl μπορεί να παραληφθεί
    TVConnect TvID:="123456789", TvPass:="1234"    ', Action:=TvAction.Action_RemoteControl
End Sub

Καλή συνέχεια!

Τάσος