Option Explicit
Dim b As Boolean
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With ComboBox1
.DropDown
.SetFocus
End With
b = True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If b Then Application.SendKeys "~": b = False
End Sub