Animate a picture box

by Ze'ev Rotshtein ()
Category: Graphics
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Mon 7^th July 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Animate a picture box



    AnimPic Picture1
End Sub

Public Sub AnimPic(pic As PictureBox)
    Dim i As Integer
    Const LOW = 0, HIGH = 255, S = 1
    Do
        For i = LOW To HIGH
            pic.BackColor = RGB(i, 0, 0)
            Sleep S
            DoEvents
        Next i
        For i = LOW To HIGH
            pic.BackColor = RGB(255, i, 0)
            Sleep S
            DoEvents
        Next i
        For i = LOW To HIGH
            pic.BackColor = RGB(255, 255, i)
            Sleep S
            DoEvents
        Next i
        For i = HIGH To LOW Step -1
            pic.BackColor = RGB(i, 255, 255)
            Sleep S
            DoEvents
        Next i
        For i = HIGH To LOW Step -1
            pic.BackColor = RGB(0, i, 255)
            Sleep S
            DoEvents
        Next i
        For i = HIGH To LOW Step -1
            pic.BackColor = RGB(0, 0, i)
            Sleep S
            DoEvents
        Next i
        DoEvents
    Loop
End Sub

Download this snippet Add to My Saved Code

Animate a picture box Comments

No comments have been posted about Animate a picture box. Why not be the first to post a comment about Animate a picture box.

Animate a picture box

Animate a picture box Comments

Post your comment

Difficulty