Remove arrow from combo box unless mouseover-ed

[Dragoons Master]

Since ComboBoxes does not have MouseMove property, use a TextBox Over the ComboBox. Name the ComboBox as "cmbCombo" and the TextBox as "txtBox" and w/ this code it should work:

Code:

Private Sub cmbCombo_Click()
    txtBox.Text = cmbCombo.List(cmbCombo.ListIndex)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtBox.Visible = True
End Sub

Private Sub txtBox_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtBox.Visible = False
End Sub

When the mouse is over the TextBox, this will get invisible and you will see the ComboBox, and when the mouse is over the form or any other object(easy to implement) it will become visible again but the text will change with the combo box.