谁帮我解释一下这段程序什么意思？

Question

谁帮我解释一下这段程序什么意思？是Modules里的。
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
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 ShowMsg(ByVal s As String)
  MsgBox s, vbInformation Or vbOKOnly, "信息提示"
End SubPublic Function ShowYesNo(s As String, Optional ByVal Title As String = "取消确认") As Boolean
   ShowYesNo = (MsgBox(s, vbYesNo Or vbInformation, Title) = vbYes)
End FunctionPublic Sub PreviewURL(ByVal URL As String)
    Call ShellExecute(0, "Open", URL, "", App.Path, 1)
End Sub

Answer 1

……
学会用baidu，google，这没啥需要解释的啊

Answer 2

Public Sub PreviewURL(ByVal URL As String) 
    Call ShellExecute(0, "Open", URL, "", App.Path, 1) 
End Sub 
打开URL的网页

Answer 3

第一段声明timegettime这个API函数
第二段定义一个信息提示框msgbox过程
第三段根据上一段过程定义一个函数，来返回一个判断值
第四段定义一个打开上一个网址的过程