////给listbox中的内容“重命名”是怎样实现的，有现成的属性和方法吗？////

Question

2.那很有可能不是菜单，是用Form模拟出来的。比如：
http://www.dapha.net/soure/form/XP%20(or%20.NET)%20menu%20with%20shadow.zip
XP下拉菜单(影子效果,酷!!!) 

Answer 1

List1.List(i)="String New Value"
----------------
Q1,2:
Private Sub Text1_Change()
For i = 0 To List1.ListCount - 1
If InStr(List1.List(i), Text1.Text) <> 0 Then
'此处用动态菜单数组(load Menu(x),menu(x).Visible = True;menu(x).caption=list1.list(i);项目过多时,自动会有箭头出现)
End If
Next i
......
End Sub
---------------------