Private Sub ComboBoxCasacata_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBoxCasacata.KeyDown
        If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down _
            Or e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Then
            Me.ComboBoxCasacata.DroppedDown = True
        Else
            Me.ComboBoxCasacata.DroppedDown = False
        End If
    End Sub