从vb里要转过来，这个代码怎么转？

shlices

vb 里面的模块

Public Declare Function CVR_InitComm Lib "termb.dll" (ByVal Port As Long) As Integer


命令
botton1里的命令
Private Sub Command1_Click()
    'CVR_InitComm
       CVR_InitComm (1001)
End Sub

也就是调用 termb.dll 里的 CVR_InitComm (1001)命令
这个在au3里怎么写？

xxoojoeooxx

DllCall ( "termb.dll", "int", "CVR_InitComm" ,"int",1001 )