Attribute VB_Name = "Module2" Global BaseAddr As Integer Global DmaNo As Integer Global IrqNo As Integer Global Notfindboard As Integer Global DigitOut As Integer Global DigitIn As Integer Global mask(0 To 15) As Integer Global DAoutValue As Integer Global ADinValue As Integer Global CurAdChannel As Integer Global CurDaChannel As Integer Global AdBuf(0 To 1023) As Integer Global CurC1 As Integer Global CurC2 As Integer