Attribute VB_Name = "CommonFunction"
Public Function PaddingText(ByVal strPadString As String, ByVal intPadNumber As Integer) As String

Do While Len(strPadString) < intPadNumber

strPadString = strPadString & " "

Loop
PaddingText = strPadString

End Function

Public Function Delay(ByVal sec As Integer)

End Function

Public Function SwitchOffAllTimer(ByVal Switch As Boolean)

If (Switch = True) Then


frmTCPTest.TimerPanelColor = False
frmTCPTest.TimerBlink = False
frmTCPTest.TimerMQ = False
frmTCPTest.TimerPanel = False
frmTCPTest.TimerSeqDisplay = False

End If


End Function