• Home
 · 
• Graphics
 · 
• Animate a picture box

Animate a picture box

Animate a picture box

Rate Animate a picture box

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    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