Attribute VB_Name = "SeqDisplay"
Public Sub SeqDisp(ByRef intSeqCount As Integer)

Rem /*using intSeqCount to decide which textbox data will be displayed*/

Select Case intSeqCount

Case 1

Rem /*Stop timer to ensure process will be executed*/

frmTCPTest.TimerSeqDisplay.Enabled = False

frmTCPTest.XDLite1.Clear

frmTCPTest.XDLite1.SendMessageS 0, 0, 3, 0, frmTCPTest.txtSeqDisp11.Text
frmTCPTest.XDLite1.SendMessageS 0, 9, 2, 0, frmTCPTest.txtSeqDisp21.Text
frmTCPTest.XDLite1.SendMessageS 28, 9, 1, 0, frmTCPTest.txtSeqDisp31.Text

Rem /*Increasing count to display next textbox content*/

intSeqCount = 2

Rem /*Resume timer for next select case*/

frmTCPTest.TimerSeqDisplay.Enabled = True

Case 2

frmTCPTest.TimerSeqDisplay.Enabled = False

frmTCPTest.XDLite1.Clear
frmTCPTest.XDLite1.SendMessageS 0, 0, 3, 0, frmTCPTest.txtSeqDisp12.Text
frmTCPTest.XDLite1.SendMessageS 0, 9, 2, 0, frmTCPTest.txtSeqDisp22.Text
frmTCPTest.XDLite1.SendMessageS 28, 9, 1, 0, frmTCPTest.txtSeqDisp32.Text
intSeqCount = 3

frmTCPTest.TimerSeqDisplay.Enabled = True

Case 3

frmTCPTest.TimerSeqDisplay.Enabled = False
frmTCPTest.XDLite1.Clear
frmTCPTest.XDLite1.SendMessageS 0, 0, 3, 0, frmTCPTest.txtSeqDisp13.Text
frmTCPTest.XDLite1.SendMessageS 0, 9, 2, 0, frmTCPTest.txtSeqDisp23.Text
frmTCPTest.XDLite1.SendMessageS 28, 9, 1, 0, frmTCPTest.txtSeqDisp33.Text

intSeqCount = 4

frmTCPTest.TimerSeqDisplay.Enabled = True

Case 4

frmTCPTest.TimerSeqDisplay.Enabled = False

frmTCPTest.XDLite1.Clear
frmTCPTest.XDLite1.SendMessageS 0, 0, 1, 0, frmTCPTest.txtSeqDisp41.Text
frmTCPTest.XDLite1.SendMessageS 0, 9, 3, 0, frmTCPTest.txtSeqDisp42.Text

intSeqCount = 5

frmTCPTest.TimerSeqDisplay.Enabled = True

Case 5

frmTCPTest.TimerSeqDisplay.Enabled = False

frmTCPTest.txtSeqDisp51.Text = Mid(CStr(DateTime.Time$), 1, 5)

frmTCPTest.XDLite1.Clear
frmTCPTest.XDLite1.SendMessage 30, 0, 2, 0, frmTCPTest.txtSeqDisp51

intSeqCount = 1

frmTCPTest.TimerSeqDisplay.Enabled = True

End Select


End Sub