Attribute VB_Name = "ScrollFunction"
Public Function ScrollLeft(ByRef PosX As Integer, ByRef PosY As Integer, ByVal PanelHeight As Integer, ByVal PanelWidth As Integer, ByVal MessageMQ As String)

frmTCPTest.TimerMQ.Enabled = False

If PosX <> -PanelWidth * 2 Then
PosX = PosX - 1
Else
PosX = PanelWidth * 2
End If

frmTCPTest.XDLite1.SendMessageS PosX, PosY, frmTCPTest.cboMQFColor.ListIndex, frmTCPTest.cboMQBColor.ListIndex, MessageMQ

frmTCPTest.TimerMQ.Enabled = True


End Function

Public Function ScrollRight(ByRef PosX As Integer, ByRef PosY As Integer, ByVal PanelHeight As Integer, ByVal PanelWidth As Integer, ByVal MessageMQ As String)

frmTCPTest.TimerMQ.Enabled = False

If PosX < PanelWidth * 2 Then
PosX = PosX + 1
Else
PosX = -PanelWidth * 2
End If

frmTCPTest.XDLite1.SendMessageS PosX, PosY, frmTCPTest.cboMQFColor.ListIndex, frmTCPTest.cboMQBColor.ListIndex, MessageMQ

frmTCPTest.TimerMQ.Enabled = True


End Function

Public Function ScrollUp(ByRef PosX As Integer, ByRef PosY As Integer, ByVal PanelHeight As Integer, ByVal PanelWidth As Integer, ByVal MessageMQ As String)

frmTCPTest.TimerMQ.Enabled = False

If PosY <> -PanelHeight Then
PosY = PosY - 1
Else
PosY = PanelHeight
End If

frmTCPTest.XDLite1.SendMessageS PosX, PosY, frmTCPTest.cboMQFColor.ListIndex, frmTCPTest.cboMQBColor.ListIndex, MessageMQ

frmTCPTest.TimerMQ.Enabled = True

End Function

Public Function ScrollDown(ByRef PosX As Integer, ByRef PosY As Integer, ByVal PanelHeight As Integer, ByVal PanelWidth As Integer, ByVal MessageMQ As String)

frmTCPTest.TimerMQ.Enabled = False

If PosY <> PanelHeight Then
PosY = PosY + 1
Else
PosY = -PanelHeight
End If

frmTCPTest.XDLite1.ClearRect PosX, 0, (PosX + Len(MessageMQ) * 6), PosY - 1

frmTCPTest.XDLite1.SendMessageS PosX, PosY, frmTCPTest.cboMQFColor.ListIndex, frmTCPTest.cboMQBColor.ListIndex, MessageMQ

frmTCPTest.TimerMQ.Enabled = True

End Function