Attribute VB_Name = "AIO_Initial"
Public Function INITcmbIomodule(n As Integer) As Integer
    On Error GoTo InitFail
    
    frmAnalogOutputTester.cmbIomodule.Clear
    frmAnalogOutputTester.cmbIomodule.AddItem "8024"
    frmAnalogOutputTester.cmbIomodule.ListIndex = 0
    INITcmbIomodule = 1
InitFail:
    INITcmbIomodule = -1
    End Function

Public Function INITcmbSlot(n As Integer) As Integer

On Error GoTo InitFail
    
    frmAnalogOutputTester.cmbSlot.Clear
    frmAnalogOutputTester.cmbSlot.AddItem "1"
    frmAnalogOutputTester.cmbSlot.AddItem "2"
    frmAnalogOutputTester.cmbSlot.AddItem "3"
    frmAnalogOutputTester.cmbSlot.AddItem "4"
    frmAnalogOutputTester.cmbSlot.AddItem "5"
    frmAnalogOutputTester.cmbSlot.AddItem "6"
    frmAnalogOutputTester.cmbSlot.AddItem "7"
    frmAnalogOutputTester.cmbSlot.ListIndex = 0
    INITcmbSlot = 1
InitFail:
    INITcmbSlot = -1
End Function

Public Function INITcmbTag(n As Integer) As Integer

        On Error GoTo InitFail
        
        frmAnalogOutputTester.cmbTag.Clear
        frmAnalogOutputTester.cmbTag.AddItem "Analog0"
        frmAnalogOutputTester.cmbTag.AddItem "Analog1"
        frmAnalogOutputTester.cmbTag.AddItem "Analog2"
        frmAnalogOutputTester.cmbTag.AddItem "Analog3"
        frmAnalogOutputTester.cmbTag.AddItem "Analog4"
        frmAnalogOutputTester.cmbTag.AddItem "Analog5"
        frmAnalogOutputTester.cmbTag.AddItem "Analog6"
        frmAnalogOutputTester.cmbTag.AddItem "Analog7"
        frmAnalogOutputTester.cmbTag.ListIndex = 0
        INITcmbTag = 1
InitFail:
        INITcmbTag = -1

End Function