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