Private Const WM_DEVICECHANGE As Integer = &H219 'Message 
    Dim DBT_DEVICEARRIVAL As IntPtr = CType(32768, IntPtr) 'WParam, Laufwerk 
    ' bereit
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        SetDrives()
    End Sub
    Sub HandleCD(m As Message)
        If m.WParam <> DBT_DEVICEARRIVAL Then
            ComboBox1.Enabled = False
            Label1.Text = "Achtung CD-Laufwerk nicht bereit"
        Else
            ComboBox1.Enabled = True
            Label1.Text = ""
        End If
        SetDrives()
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_DEVICECHANGE Then
            Me.HandleCD(m)
        End If
        MyBase.WndProc(m)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus