如何定义type?

Question

就象这样： 
Type CH_INFO
    EnCalled As Boolean
    lineState As Integer
    nStep As Integer
    nToTrkCh As Integer
    pPhoNumBuf As String * 50
    nTimeOut As Integer
    nEnabled As Boolean
    InUse As Integer
    DtmfBuf As String * 100
End Type

Answer 1

调用时许声明：
  Public ChInfo(0 To 7) As CH_INFO  Public Sub set_chredy(ch_no As Integer)
      response_reg(ch_no) = 0
      ChInfo(ch_no).nStep = IDLE
      ChInfo(ch_no).InUse = 0
      reg0(ch_no) = 0
      reg1(ch_no) = 0
      ChInfo(ch_no).nEnabled = True
      Call SsmHangup(ch_no)
  End Sub

Answer 2

  Public|private set_chredy(ch_no As Integer)
      response_reg(ch_no) = 0
      ChInfo(ch_no).nStep = IDLE
      ChInfo(ch_no).InUse = 0
      reg0(ch_no) = 0
      reg1(ch_no) = 0
      ChInfo(ch_no).nEnabled = True
      Call SsmHangup(ch_no)
  End Sub
也可以这样！