Jeśli to tylko brak zdarzeń do wykorzystania dla Textboxa to wypróbuj poniższy zestaw
Private Sub TextBox1_DropButtonClick()
MsgBox ActiveControl.Name
End Sub
Private Sub UserForm_Click()
TextBox1.ShowDropButtonWhen = fmShowDropButtonWhenAlways
End Sub |