lblTitle = strTitle & " Version " & App.Major & "." & App.Minor & "." & App.Revision
lblCopyright = TEXT_COPYRIGHT
lblDistribute = TEXT_DISTRIBUTE
lblInfo = TEXT_INFO
lblWww = TEXT_WWW
lblComments = TEXT_COMMENTS
lblSmtp = TEXT_SMTP
Me.Caption = strTitle
这是一个VB程序（我们要做项目）是个拼图游戏，但以上句我不知道是什么意思（顺便解释一下什么是模块及模块功能，它和窗体有什么区别）
哪位高人能帮解释一下，能解释越清楚，追加分更多。我是初学者，别见笑
以下是部分程序代码
分三个窗体。
formabout窗体代码
Option Explicit

Private Const TEXT_COPYRIGHT As String = "Copyright ?1998, Anders Fransson."
Private Const TEXT_DISTRIBUTE As String = "Freely distributed. All rights reserved."
Private Const TEXT_INFO As String = "For further information:"
Private Const TEXT_WWW As String = "http://hem1.passagen.se/fylke/"
Private Const TEXT_COMMENTS As String = "Send questions and comments to:"
Private Const TEXT_SMTP As String = "anders.fransson@home.se"

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub ShowAboutForm(strTitle As String, Optional vntIcon As Variant)

lblTitle = strTitle & " Version " & App.Major & "." & App.Minor & "." & App.Revision
lblCopyright = TEXT_COPYRIGHT
lblDistribute = TEXT_DISTRIBUTE
lblInfo = TEXT_INFO
lblWww = TEXT_WWW
lblComments = TEXT_COMMENTS
lblSmtp = TEXT_SMTP
Me.Caption = strTitle

If Not IsMissing(vntIcon) Then
imgIcon = vntIcon
End If

Me.Show vbModal

End Sub

Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub lblWww_click()
ShellExecute 0, "Open", TEXT_WWW, "", "", vbNormalFocus
End Sub

Private Sub lblWww_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblWww.ForeColor = vbRed
End Sub

Private Sub lblWww_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblWww.ForeColor = vbBlue
End Sub

Private Sub lblSmtp_click()
ShellExecute 0, "Open", "mailto:" & TEXT_SMTP, "", "", vbNormalFocus
End Sub

Private Sub lblSmtp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblSmtp.ForeColor = vbRed
End Sub
Private Sub lblSmtp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblSmtp.ForeColor = vbBlue
End Sub

忙里偷闲 给你回答回答！
如果真是初学到可以一句一句解释 但好像又没这个必要

1、下面的代码意义很简单：将右边的常量赋予左侧的变量
比如：TEXT_COPYRIGHT 常量代表 版本符号
TEXT_WWW 代表公司网；TEXT_SMTP则是公司邮箱
lblTitle = strTitle & " Version " & App.Major & "." & App.Minor & "." & App.Revision
lblCopyright = TEXT_COPYRIGHT
lblDistribute = TEXT_DISTRIBUTE
lblInfo = TEXT_INFO
lblWww = TEXT_WWW
lblComments = TEXT_COMMENTS
lblSmtp = TEXT_SMTP
Me.Caption = strTitle
2、附解释的全部代码：
Option Explicit '强制变量
'定义部分常量
Private Const TEXT_COPYRIGHT As String = "Copyright ?1998, Anders Fransson."
Private Const TEXT_DISTRIBUTE As String = "Freely distributed. All rights reserved."
Private Const TEXT_INFO As String = "For further information:"
Private Const TEXT_WWW As String = "http://hem1.passagen.se/fylke/"
Private Const TEXT_COMMENTS As String = "Send questions and comments to:"
Private Const TEXT_SMTP As String = "anders.fransson@home.se"

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'显示 版本信息 窗体
Public Sub ShowAboutForm(strTitle As String, Optional vntIcon As Variant)

lblTitle = strTitle & " Version " & App.Major & "." & App.Minor & "." & App.Revision
lblCopyright = TEXT_COPYRIGHT
lblDistribute = TEXT_DISTRIBUTE
lblInfo = TEXT_INFO
lblWww = TEXT_WWW
lblComments = TEXT_COMMENTS
lblSmtp = TEXT_SMTP
Me.Caption = strTitle

If Not IsMissing(vntIcon) Then
imgIcon = vntIcon
End If

Me.Show vbModal

End Sub

Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub lblWww_click() '点击网址时 打开网站
ShellExecute 0, "Open", TEXT_WWW, "", "", vbNormalFocus
End Sub
'用于鼠标按下是 网址显示为红色状态
Private Sub lblWww_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblWww.ForeColor = vbRed
End Sub
'松开鼠标 网址返回蓝色
Private Sub lblWww_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblWww.ForeColor = vbBlue
End Sub
'点击邮箱地址时 打开系统默认邮件客户段比如：outlook
Private Sub lblSmtp_click()
ShellExecute 0, "Open", "mailto:" & TEXT_SMTP, "", "", vbNormalFocus
End Sub
'同上
Private Sub lblSmtp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblSmtp.ForeColor = vbRed
End Sub
Private Sub lblSmtp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblSmtp.ForeColor = vbBlue
End Sub
补充一下：
常量是不能改变的（废话了）
Const 是定义常量的关键字
Private Const 是私有化常量 在窗体的代码中 这个Private 可以省略。模块中则是public 。
根据VB书写约定 常量名称和变量名称 的字母大小写是有区别的。比如：常量约定为大写，变量约定为小写或小写＋部分大写
如：常用的圆周率 定义常量为：PI=3.14159265(当然系统中有这个函数)
变量可以为：i，n，j等等。
控件的名称则可以约定为：listview1为lvw1等等简写

lblTitle = strTitle & " Version " & App.Major & "." & App.Minor & "." & App.Revision 'App是一个全局对象,保存本程序的一些信息,下面的不需要解释吧
lblCopyright = TEXT_COPYRIGHT
lblDistribute = TEXT_DISTRIBUTE
lblInfo = TEXT_INFO
lblWww = TEXT_WWW
lblComments = TEXT_COMMENTS
lblSmtp = TEXT_SMTP
Me.Caption = strTitle