If msg.Msg = WM_DEVICECHANGE AndAlso 
    msg.WParam = CType(DBT_DEVICEREMOVECOMPLETE, IntPtr) Then
 
    Call setDrives()
 
    If cbdrives.Items.Contains(strSelItem) Then
       If InStr(strSelItem, "E:") > 0 Then
          '???????????
          cbdrives.SelectedIndex = 0
          strSelItem = Me.cbdrives.SelectedItem.ToString            
       Else
          'Das in der Combo gewählte Item ist noch vorhanden
          cbdrives.SelectedItem = strSelItem
       End If
    Else
       'Das in der Combo gewählte Item ist entfernt worden
       cbdrives.SelectedIndex = 0
       strSelItem = cbdrives.SelectedItem.ToString                
    End If
 End If