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

Public Function INITcmbSlot(n As Integer) As Integer

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

Public Function INITcmbTag(n As Integer) As Integer

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

End Function