Option Explicit 
 
Private Declare Function WNetConnectionDialog Lib "mpr.dll" _
(ByVal hwnd As Long, ByVal dwType As Long) As Long 
 
Private Declare Function WNetDisconnectDialog Lib "mpr.dll" _
(ByVal hwnd As Long, ByVal dwType As Long) As Long 
 
Private Const RESOURCETYPE_ANY = &H0
Private Const RESOURCETYPE_DISK = &H1
Private Const RESOURCETYPE_PRINT = &H2
Private Const RESOURCETYPE_UNKNOWN = &HFFFF
 
Private Const RESOURCEUSAGE_CONNECTABLE = &H1
Private Const RESOURCEUSAGE_CONTAINER = &H2
Private Const RESOURCEUSAGE_RESERVED = &H80000000

Private Sub Command1_Click()
' Netzlaufwerk verbinden 
    WNetConnectionDialog hwnd, RESOURCETYPE_DISK
End Sub 

Private Sub Command2_Click()
' Netzlaufwerk trennen 
    WNetDisconnectDialog hwnd, RESOURCETYPE_DISK
End Sub 

Private Sub Command3_Click()
' Netz-Drucker trennen 
    WNetDisconnectDialog hwnd, RESOURCETYPE_PRINT
End Sub