[VB.Net] Square-Marquee

Coder-san · 05-10-2011, 06:31 AM

[altimg=http://i.imgur.com/ztRjE.gif]Square Marquee By Coder-san[/altimg]

Here is a funny Marquee for your Credits Dialog, etc.

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

1llusion · 05-10-2011, 07:55 AM

Wow looks great! Thanks!

1234hotmaster · 05-10-2011, 12:17 PM

Cool function! i'll definitely use this in PHP keylogger 5 Biggrin

H3ROiN · 05-10-2011, 02:04 PM

Nice

.
This Would Be Great For Credits (:

[VB.Net] Square-Marquee
Author Message