Protected Overloads Overrides Sub WndProc(ByRef msg As Message)
  MyBase.WndProc(msg)
 
  If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType(DBT_DEVICEARRIVAL, _
    IntPtr)
    LockWindowUpdate(CType(0, System.IntPtr))
    If cbDrives.DroppedDown = True Then
      cbDrives.DroppedDown = False
      Call setDrives()
      cbDrives.DroppedDown = True
    Else
      Call setDrives()
    End If
 
    cbDrives.SelectedItem = strSelItem
    LockWindowUpdate(CType(0, System.IntPtr))
  End If
 
  If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType( _
    DBT_DEVICEREMOVECOMPLETE, IntPtr) Then
    LockWindowUpdate(CType(Me.Handle.ToInt32, System.IntPtr))
 
    If cbDrives.DroppedDown = True Then
      cbDrives.DroppedDown = False
      Call setDrives()
      cbDrives.DroppedDown = True
    Else
      Call setDrives()
    End If
 
    If cbDrives.Items.Contains(strSelItem) Then
      cbDrives.SelectedItem = strSelItem
    Else
      frmInfo.TextBox1.Text = "Das aktuell angezeigte Laufwerks wurde entfernt"
      frmInfo.intTime = 1
      frmInfo.Show
 
      cbDrives.SelectedIndex = 0
      strSelItem = cbDrives.SelectedItem.ToString
      Call setFolders(strSelItem.Substring(strSelItem.Length-3,2) & "\")
      LockWindowUpdate(CType(0, System.IntPtr))
    End If
  End If
End Sub