'Para cambiar el volumen del disco duro (Etiqueta)
Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long

Public Function SetLabel(RootName As String, NewLabel As String)

If RootName ="" Then

Exit Function

End If

Call SetVolumeLabel(RootName,NewLabel)

End Function

'desde cualquier boton de comando
Private Sub Command1_Click()
Call SetLabel("c:\windows","Nuevo Nombre")
End Sub