如何制作如图调用自定义系统关于窗体(图加源代码)

'调用系统关于窗体只要使用API ShellAbout 就可以了

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.accessQQ.com", LoadPicture("c:\app.ico")
End Sub