Visual Basic - Desmapear y mapear unidades en vb

quiero mapear una unidad, hacer un procedimiento y después desmapearla así unas 50 veces seguidas, ya se hacerlo mediante msdos con un shell pero quiero ordenes de visual; Gracias

Hay funciones en el API de Windows que te permiten hacerlo:

Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long
Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long

Creo que su uso está bastante claro; aquí tienes un pequeño ejemplo:

WNetAddConnection("\\SERVIDOR\RECURSO", "", "F:")
WNetCancelConnection("\\SERVIDOR\RECURSO", 1) ' Puede ser así ...
WNetCancelConnection("F:", 1) ' ... o así