Private Sub myDriveWatcher_DriveCoutChanged(ByVal sender As Object, _
        ByVal e As System.IO.DriveInfo) Handles myDriveWatcher.DriveArrived
        System.Threading.Thread.Sleep(2000)
        If e.TotalSize.ToString = "2104492032".ToString Then
            If fes1locked() Then
                fes1()
            End If
            If fes2locked() Then
                fes2()
            End If
        End If
    End Sub
 
    Private Sub myDriveWatcher_DriveRemoved(ByVal sender As Object, _
        ByVal e As System.IO.DriveInfo) Handles myDriveWatcher.DriveRemoved
        System.Threading.Thread.Sleep(2000)
        If Not fes1locked() Then
            fes1(True)
        End If
        If Not fes2locked() Then
            fes2(True)
        End If
    End Sub

    Sub fes1(Optional ByVal lock As Boolean = False)
        If lock Then
            Try
 
                Dim classInstance As New ManagementObject( _
    "root\CIMV2\Security\MicrosoftVolumeEncryption", _
    "Win32_EncryptableVolume.DeviceID='\\?\Volume{37a21c80-dd0f-11de-a20f-806e" & _
    "f6e6963}\'", _
    Nothing)
 
                ' Obtain [in] parameters for the method
                Dim inParams As ManagementBaseObject = _
                    classInstance.GetMethodParameters("Lock")
 
                ' Add the input parameters.
                inParams("ForceDismount") = True
 
                ' Execute the method and obtain the return values.
                Dim outParams As ManagementBaseObject = _
                    classInstance.InvokeMethod("Lock", inParams, Nothing)
            Catch ex As Exception
 
            End Try
        Else
 
            Try
                Dim classInstance As New ManagementObject( _
     "root\CIMV2\Security\MicrosoftVolumeEncryption", _
     "Win32_EncryptableVolume.DeviceID='\\?\Volume{37a21c80-dd0f-11de-a20f-806" & _
     "6f6e6963}\'", _
     Nothing)
 
                ' Obtain [in] parameters for the method
                Dim inParams As ManagementBaseObject = _
                    classInstance.GetMethodParameters("UnlockWithPassPhrase")
 
                ' Add the input parameters.
                inParams("PassPhrase") = "pewe"
 
                ' Execute the method and obtain the return values.
                Dim outParams As ManagementBaseObject = _
                    classInstance.InvokeMethod("UnlockWithPassPhrase", _
                    inParams, Nothing)
 
            Catch ex As Exception
            End Try
 
        End If
    End Sub