是不是被标题吸引到了，没错我就是标题党。

做了一个有点意思的小示例，分享给大家学习娱乐

主要代码:

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)

Private Sub Command74_Click()
       ShellAbout Me.hwnd, "我的作品XXXXXXX", "版本号:XXXXXXXX.0", 1

End Sub

附   件:

点击下载此附件

图片演示: