在线等待！！！！！！！！急啊

Question

Dim intCommPort As Long
Dim strCommSettings As String
Dim intOutBufferSize As Long
Dim intInBufferSize As Long
Dim blnShowFlage As Boolean
Dim intColorSet() As Long
Dim intArrayCount As LongPrivate Sub MSComm1_OnComm()End SubPrivate Sub Form_Load()
cmdShow.Caption = "<<隐藏"
blnShowFlag = Ture
frmMain.Height = 6400
Call SetComm("9600,N,8,1", 2, 4096)
intInBufferSize = 4096
intOutBufferSize = 2048
intCommFlag = 0
frmMain.ctrCommonDialog.Flags = &H200000 Or &H2
frmMain.ctrCommonDialog.CancelError = Ture
blnFileTransFlag = FalseprgFileTransfer.Max = 100
prgFileTransfer.Main = 0
prgFileTransfer.Value = 0rtfReceive.Text = ""intArrayCount = 0
End Sub
运行以后就是说我的那个Call SetComm（）函数没定义 不知道怎么编译成功啊！！！！！！！！救命啊！！！！！！

Answer 1

SetComm这个函数在哪儿定义的/？如果在模块应该定义成public类型