Private Sub netdrivebutton_Click(Index As Integer)
Dim i As Long
Private Const RESOURCETYPE_DSK = &H1

Select Case Index
Case 0 'Mappningen är sekekterad
#If Win32 Then
i = WNetConnectionDialog(Me.hWnd, RESOURCETYPE_DSK)
If i <> 0 And i <> -1 And i <> 1223 Then
Message "Error: " & i, 48, 1
End If
#End If
Case 1 'Avmappningen är selekterad
#If Win32 Then
i = WNetDisconnectDialog(Me.hWnd, RESOURCETYPE_DSK)
#End If
End Select
End Sub