新建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()
    Call ShellAbout(Me.hwnd, "关于我们", "管理系统V1.0版权所有[C]2024-2025 MaNongKu.com", icons)
End Sub