Private Sub frmMain_Load( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs _
    ) Handles MyBase.Load
 
        Dim strDevName As String = ""
        Dim udtInquiry As New Scsi.Commands.ScsiInquiryResult
 
        If m_clsDevice.DeviceCount = 0 Then
               MsgBox("Keine Laufwerke gefunden!", MsgBoxStyle.Critical)
        End If