Attribute VB_Name = "InitModule"
Public Sub initcmbBcolor()

frmTCPTest.cmbBColor.AddItem "Black", 0
frmTCPTest.cmbBColor.AddItem "Green", 1
frmTCPTest.cmbBColor.AddItem "Red", 2
frmTCPTest.cmbBColor.AddItem "Orange", 3
frmTCPTest.cmbBColor.ListIndex = 0

End Sub

Public Sub initcmbFcolor()
frmTCPTest.cmbFColor.AddItem "Black", 0
frmTCPTest.cmbFColor.AddItem "Green", 1
frmTCPTest.cmbFColor.AddItem "Red", 2
frmTCPTest.cmbFColor.AddItem "Orange", 3
frmTCPTest.cmbFColor.ListIndex = 1

End Sub

Public Sub initcboMTBColor()

frmTCPTest.cboMTBColor.AddItem "Black", 0
frmTCPTest.cboMTBColor.AddItem "Green", 1
frmTCPTest.cboMTBColor.AddItem "Red", 2
frmTCPTest.cboMTBColor.AddItem "Orange", 3
frmTCPTest.cboMTBColor.ListIndex = 0

End Sub

Public Sub initcboMTFColor()

frmTCPTest.cboMTFColor.AddItem "Black", 0
frmTCPTest.cboMTFColor.AddItem "Green", 1
frmTCPTest.cboMTFColor.AddItem "Red", 2
frmTCPTest.cboMTFColor.AddItem "Orange", 3
frmTCPTest.cboMTFColor.ListIndex = 1

End Sub


Public Sub initcboMQFcolor()

frmTCPTest.cboMQFColor.AddItem "Black", 0
frmTCPTest.cboMQFColor.AddItem "Green", 1
frmTCPTest.cboMQFColor.AddItem "Red", 2
frmTCPTest.cboMQFColor.AddItem "Orange", 3
frmTCPTest.cboMQFColor.ListIndex = 1

End Sub

Public Sub initcboMQEffects()

frmTCPTest.cboMQEffects.AddItem "Static", 0
frmTCPTest.cboMQEffects.AddItem "Scroll Left", 1
frmTCPTest.cboMQEffects.AddItem "Scroll Right", 2
frmTCPTest.cboMQEffects.AddItem "Scroll Up", 3
frmTCPTest.cboMQEffects.AddItem "Scroll Down", 4
frmTCPTest.cboMQEffects.ListIndex = 1

End Sub


Public Function initcboMQBcolor()

frmTCPTest.cboMQBColor.AddItem "Black", 0
frmTCPTest.cboMQBColor.AddItem "Green", 1
frmTCPTest.cboMQBColor.AddItem "Red", 2
frmTCPTest.cboMQBColor.AddItem "Orange", 3
frmTCPTest.cboMQBColor.ListIndex = 0

End Function