VB ComboBox 下拉箭头！解决方案

VB ComboBox 下拉箭头！
我想在ComboBox实现不用时箭头隐藏，就象TextBox,在使用时点击ComboBox显示下拉箭头，并出现下拉列表可选择。当失去焦点点击其它地方时又恢复隐藏箭头。   就像VB   “属性窗口”中的ComboBox那样显示。
      应怎样实现？谢谢！

[解决办法]
用一个textbox与combo结合，combo1和textbox大小一样，combo1隐藏

Private Sub Text1_GotFocus()
Combo1.Visible = True
Combo1.ZOrder 0 '移到前面
End Sub

Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub

........

思路大概这样，让combo1隐藏就不用我说了