' OEM, und was genau?
    ' Uns interesieren nur Volumes
    Private StickID As Integer
    Private Function HandleOEM(ByRef m As Message) As IO.DriveInfo
        Dim oem As DEV_BROADCAST_OEM
        Dim objOem As Object = m.GetLParam(oem.GetType)
 
        If Not IsNothing(objOem) Then
            oem = DirectCast(objOem, DEV_BROADCAST_OEM)
            StickID = oem.dbco_devicetype
            If oem.dbco_devicetype = DeviceType.VOLUME Then
                Return Me.HandleVolume(m)
            End If
        End If
        Return Nothing
    End Function
 
    ' Liefert uns den Laufwerksbuchstaben zurück
    Private Function DriveFromMask(ByVal unitmask As Integer) As Char
        For b As Integer = 0 To 25
            If (unitmask And CInt(2 ^ b)) <> 0 Then
                Return Chr(65 + b)
            End If
        Next b
        Return Nothing
    End Function