ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)
 FORM-CODE

   Private Declare Function WNetCancelConnection Lib "mpr.dll" _
   Alias "WNetCancelConnectionA" (ByVal lpszName As String, _
   ByVal bForce As Long) As Long

   Private Sub Command1_Click()
      l = WNetCancelConnection("E:", 1)
      If l <> 0 Then MsgBox "Fehler beim Verbinden !", vbCritical
   End Sub

      Der Laufwerksbuchstabe muss mindestens 2 Zeichen lang sein,
      also mit Doppelpunkt; ein Backslash ("E:\") ist auch erlaubt.