' Change the icon of a drive' Example: ChangeDriveIcon("d", "c:myicon.ico")Sub ChangeDriveIcon(ByVal driveLetter As String, ByVal icoPath As String) ' create the parent key Dim regKey As Microsoft.Win32.RegistryKey = _ Microsoft.Win32.Registry.LocalMachine.CreateSubKey( _ "SoftwareMicrosoftWindowsCurrentVersionExplorerDriveIcons" & _ driveLetter & "DefaultIcon") ' set the (Default) value with the icon's path regKey.SetValue("", icoPath) regKey.Close()End Sub' Reset the icon of a driveSub ResetDriveIcon(ByVal driveLetter As String) ' delete the key Try Microsoft.Win32.Registry.LocalMachine.DeleteSubKey( _ "SoftwareMicrosoftWindowsCurrentVersionExplorerDriveIcons" & _ driveLetter) Catch ex As Exception End TryEnd Sub


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many