Private Sub SetDriveBinding()
        bsDrives.ResetBindings(False)
        Dim droppeddown As Boolean
        With cboDrives
            If .DroppedDown Then
                'Dropdown ggf. schließen
                .DroppedDown = False
                droppeddown = True
            End If
        End With
        SetSelectedDrive(droppeddown)
    End Sub
 
 
    Private Sub SetSelectedDrive(droppeddown As Boolean)
        Dim found As Boolean
        If String.IsNullOrEmpty(SelectedDrive) Then Exit Sub
        If lstdrives.Count = 0 Then Exit Sub
 
        For i As Integer = 0 To lstdrives.Count - 1
            If lstdrives(i).StartsWith(SelectedDrive) Then
                cboDrives.SelectedIndex = i : found = True
            End If
        Next i
        If Not found Then cboDrives.SelectedIndex = 0
 
        'Dropdown ggf. wieder öffnen 
        cboDrives.DroppedDown = droppeddown
    End Sub