Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) _
                          Handles MyBase.Load
        Me.MovingLabel1._MovingDirection = MovingLabel.Direction.RightToLeft
        Me.MovingLabel1._MovingText = ArabicDate.GetFullDate
        Me.MovingLabel1.StartMoving()

        Me.MovingLabel2._MovingDirection = MovingLabel.Direction.LeftToRight
        Me.MovingLabel2._MovingText = ArabicDate.GetFullDate
        Me.MovingLabel2.StartMoving()

        Me.MovingLabel3._MovingDirection = MovingLabel.Direction.TopToBottom
        Me.MovingLabel3._MovingText = ArabicDate.GetFullDate
        Me.MovingLabel3.StartMoving()

        Me.MovingLabel4._MovingDirection = MovingLabel.Direction.BottomToTop
        Me.MovingLabel4._MovingText = ArabicDate.GetFullDate
        Me.MovingLabel4.StartMoving()
    End Sub
End Class