Public Class UnklappableCombo
    Inherits ComboBox
 
    Private dropped As Boolean
 
    Protected Overrides Sub OnDropDown(ByVal e As System.EventArgs)
        MyBase.OnDropDown(e)
        dropped = True
    End Sub
 
    Protected Overrides Sub OnDropDownClosed(ByVal e As System.EventArgs)
        dropped = False
        MyBase.OnDropDownClosed(e)
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If dropped AndAlso m.Msg = &H111 Then
            Return
        End If
        MyBase.WndProc(m)
    End Sub
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist