sEnableVerb = "&Aktivieren"
sDisableVerb = "&Deaktivieren"

sEnableVerb = "&Activer"
sDisableVerb = "&Désactiver"

sEnableVerb = "En&able"  
sDisableVerb = "Disa&ble"

???

Public Sub DeactivateAdapter(ByVal ConnectionName As String)
 
 
        Const ssfCONTROLS = 3
        Dim sConnectionName
        Dim sEnableVerb
        Dim sDisableVerb
        Dim shellApp
        Dim oControlPanel
        Dim oNetConnections
        Dim oLanConnection
        Dim bEnabled
        Dim oEnableVerb
        Dim oDisableVerb
        Dim s
 
        sConnectionName = ConnectionName
 
       sEnableVerb = "En&able"  
       sDisableVerb = "Disa&ble"  
 
 
        shellApp = CreateObject("shell.application")
        oControlPanel = shellApp.Namespace(ssfCONTROLS)
 
        oNetConnections = Nothing
 
        For Each folderitem In oControlPanel.items
            If folderitem.name = "Connessioni di Rete" Then
                oNetConnections = folderitem.getfolder : Exit For
            End If
        Next
 
        If oNetConnections Is Nothing Then
            MsgBox("Couldn't find 'Connessioni di Rete' folder")
        End If
 
        oLanConnection = Nothing
        For Each folderitem In oNetConnections.items
            If LCase(folderitem.name) = LCase(sConnectionName) Then
                oLanConnection = folderitem : Exit For
            End If
        Next
 
        If oLanConnection Is Nothing Then
            MsgBox("Couldn't find '" & sConnectionName & "' item")
        End If
 
        Try
 
 
            bEnabled = True
            oEnableVerb = Nothing
            oDisableVerb = Nothing
            s = "Verbs: " & vbCrLf
            For Each verb In oLanConnection.verbs
                s = s & vbCrLf & verb.name
                If verb.name = sDisableVerb Then
                    oDisableVerb = verb
                End If
            Next
 
 
            '  oLanConnection.invokeverb sDisableVerb
            oDisableVerb.DoIt()
 
        Catch ex As Exception
 
        End Try
 
 
    End Sub