修改系统的关于窗口，填写自己的代码

WTM1

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long



Sub test()

    ShellAbout Me.hwnd, "你的程序名字哈", "www.office-cn.net", LoadPicture("c:\*你的图标亚.ico")

End Sub

kunlun

这个好。不过，，，没用呀，自己发开的系统关于都是单独建的，，很少用系统的关于呀