Mit wenigen Zeilen rufen Sie den Dialog zum Verbinden
    eines Netzlaufwerkes auf:

ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

 FORM-CODE

   Private Declare Function WNetConnectionDialog Lib "Mpr.dll" _
      (ByVal hwnd As Long, ByVal dwType As Long) As Long

   Private Sub Command1_Click()
      x% = WNetConnectionDialog(Me.hwnd, 1)
   End Sub