Imports UsbEject.Library
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim volumeDeviceClass As New VolumeDeviceClass()
For Each device As Volume In volumeDeviceClass.Devices
' is this volume on USB disks?
If Not device.IsUsb Then
Continue For
End If
' is this volume a logical disk?
If (device.LogicalDrive Is Nothing) OrElse _
(device.LogicalDrive.Length = 0) Then
Continue For
End If
MessageBox.Show(device.LogicalDrive)
' allow Windows to display any relevant UI
device.Eject(False)
Next
End Sub
End Class