我可以实现你的要求,只是分数太低了,这个问题解决以后,你就会发现为什么分数太低了,这可是我编程的一种工具,但为了中国的软件事业,我只好吐血了。
1.运行VB6.0
2.在VB的引用中找到Microsoft shell controls and automation如果没有找到也可以引用在你WINDOW的SYSTEM目录下的SHDOC401.DLL,这两个是一样的。
3.代码
Private Sub Command1_Click()
Dim shRosement As New Shell
shRosement.TrayProperties
End Sub
4.运行
发现了什么,对!就是你要的!
5.备注
好好研究一下,这个引用,你会吃惊的。