'''''Lesson 55 Excel '''
Private Sub TextBox1_DropButtonClick()
MsgBox "DDropButtonClick"
End Sub
Private Sub UserForm_Initialize()
TextBox1.ShowDropButtonWhen = fmShowDropButtonWhenAlways
TextBox1.DropButtonStyle = fmDropButtonStyleEllipsis
End Sub