Add 1 Command Button (named Command1) to your
form.
Module Code
Declare Function
SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal _
lpRootPathName As
String, ByVal lpVolumeName As String) As Long
Form Code
Private
Sub Command1_Click() 'replace the "d:\" below with
the drive you want to change its label 'replace the "MyNewLabel" below
with the drive new label If SetVolumeLabel("d:\", "MyNewLabel") = 0 Then MsgBox
"An Error occured while trying to change drive label", vbCritical,
"Error" End If End Sub
