Public Class Form1
    Inherits System.Windows.Forms.Form
 
  ' Netzlaufwerk verbinden/trennen (per Dialog)
  Private Declare Function WNetConnectionDialog Lib "mpr.dll" _
    (ByVal hWnd As Integer, ByVal dwType As Integer) As Integer
 
  Private Declare Function WNetDisconnectDialog Lib "mpr.dll" _
    (ByVal hWnd As Integer, ByVal dwType As Integer) As Integer
 
  Private Declare Function GetActiveWindow Lib "user32" _
    Alias "GetActiveWindow" () As Integer
 
  Private Const RESOURCETYPE_DISK = &H1
  Private Const WN_SUCCESS = 0
 
  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' Netzlaufwerk verbinden (per Dialog)
    Dim lResult As Integer
    Dim hWnd As Integer
 
    hWnd = GetActiveWindow()
    lResult = WNetConnectionDialog(hWnd, RESOURCETYPE_DISK)
 
    If lResult <> WN_SUCCESS Then
      MsgBox("Fehler oder Benutzerabbruch!")
    End If
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de