新建From1（窗体），新建Command1（按钮CommandButton），代码：

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

Private Sub Command1_Click()
    ShellAbout hWnd, "码农库", "MaNongku.com", hIcon
End Sub

可以看到标题和内容。