How can I show menu with click a command button On Visual basic?

Question

I Work with visual basic 6 and try to show menu after click it. so you know after click menu or childs, it dissappear soon, but i never dissapear it

Answer 1

Private Sub Form_Load()
'Name of your menu is xfile (see Form1 properties)
xfile.Enabled = False
xfile.Visible = False
End Sub

Private Sub menuOFF_Click()
'button to off
xfile.Enabled = False
xfile.Visible = False
End Sub

Private Sub menuON_Click()
'button to on
xfile.Enabled = True
xfile.Visible = True
End Sub

Answer 2

http://www.planetsourcecode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&txtCriteria=toolbar+menus+&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1