Option Strict Off
Option Explicit On
Friend Class frmAnimateLabelInherits System.Windows.Forms.Form'and in the form............Private Sub frmAnimateLabel_Load()'Set the label positionLblan.Left = VB6.TwipsToPixelsX(-1360)End SubPrivate Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click'Start AnimationSetTimer(Me.Handle.ToInt32, 0, 10, AddressOf AnimateLbl)End SubPrivate Sub frmAnimateLabel_Unload(ByRef Cancel As Short)'Stop the timer and animation'Instead you can use another button to stop
KillTimer(Me.Handle.ToInt32, 0)End SubEnd ClassOption Strict Off
Option Explicit On
Module Module1Public iColor As ShortPublic powerOn As BooleanPublic activity As BooleanPublic errors As Boolean'Add This Code in a modulePublic Declare Function SetTimer Lib "user32" (ByVal hwnd As Integer, ByVal nIDEvent As Integer, ByVal uElapse As Integer, ByVal lpTimerFunc As Animate) As IntegerPublic Declare Function KillTimer Lib "user32" (ByVal hwnd As Integer, ByVal nIDEvent As Integer) As IntegerPublic Delegate Sub Animate()Public Sub AnimateLbl()With frmAnimateLabel.DefInstance.Lblan.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(.Left) + 30) 'Move the label by 30 unitsIf VB6.PixelsToTwipsX(.Left) >= VB6.PixelsToTwipsX(frmAnimateLabel.DefInstance.Width) Then 'If the label has reached the end.Left = VB6.TwipsToPixelsX(-1360) 'Reset Back to the Original PositionEnd IfEnd WithEnd Sub
End Module

'Add This Code in a module
Option Explicit
Public iColor As Integer
Public powerOn As Boolean
Public activity As Boolean
Public errors As BooleanPublic Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As LongPublic Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As LongPublic Sub AnimateLbl()With frmAnimateLabel.Lblan.Left = .Left + 30  'Move the label by 30 unitsIf .Left >= frmAnimateLabel.Width Then  'If the label has reached the end.Left = -1360 'Reset Back to the Original PositionEnd IfEnd WithEnd SubPublic Sub blinkLights()AnimateLblWith frmAnimateLabelpowerOn = Not powerOnactivity = Not activityerrors = Not errors.Shape1.FillColor = IIf(powerOn, vbRed, &HC0C0C0).Shape2.FillColor = IIf(activity, vbGreen, &HC0C0C0).Shape3.FillColor = IIf(errors, &H80FF&, &HC0C0C0)iColor = iColor + 1Debug.Print "-------------ColorCount >>>>"; iColorEnd With
End Sub'and in the form............Private Sub frmAnimateLabel_Load()'Set the label positionLblan.Left = -1360End SubPrivate Sub Command1_Click()'Start AnimationSetTimer Me.hwnd, 0, 100, AddressOf blinkLightsSetTimer Me.hwnd, 0, 10, AddressOf AnimateLblEnd SubPrivate Sub frmAnimateLabel_Unload(Cancel As Integer)'Stop the timer and animation'Instead you can use another button to stop
KillTimer Me.hwnd, 0End SubPrivate Sub Command2_Click()SetTimer Me.hwnd, 0, 10, AddressOf AnimateLblEnd Sub