[VB.Net] Square-Marquee - Printable Version

Code:
Dim MarqueeX, MarqueeY As Integer

    Private Sub timMarquee_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timMarquee.Tick
        If lblCredits.Location.Y < Me.Height - (lblCredits.Height + 40) AndAlso lblCredits.Location.X = 0 Then
            MarqueeY += 1
        Else
            If lblCredits.Location.X < Me.Width - (lblCredits.Width + 14) AndAlso lblCredits.Location.Y > 0 Then
                MarqueeX += 1
            Else
                If lblCredits.Location.Y > 0 Then
                    MarqueeY -= 1
                Else
                    If lblCredits.Location.X > 0 Then
                        MarqueeX -= 1
                    End If
                End If
            End If
        End If
        lblCredits.Location = New Point(MarqueeX, MarqueeY)

    End Sub