• Home
 · 
• Graphics
 · 
• Lines run around an object's border with different colors flashing.

Lines run around an object's border with different colors flashing.

Lines run around an object's border with different colors flashing.

API Declarations


Dim YPos
Dim R
Dim G
Dim B



Rate Lines run around an object's border with different colors flashing.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    ' Create random RGB colors.
    R = 255 * Rnd
    G = 255 * Rnd
    B = 255 * Rnd
    'Thickness of border
    DrawWidth = 5
    'Top
    For XPos = Shape1.Left To Shape1.Left + Shape1.Width Step 0.5  'The step is 
                                                                   'the speed
    PSet (XPos, Shape1.Top), RGB(R, G, B)
    Next XPos
    'Bottom
    For XPos = Shape1.Left To Shape1.Left + Shape1.Width Step 0.5
    PSet (XPos, Shape1.Top + Shape1.Height), RGB(R, G, B)
    Next XPos
    'Right
    For YPos = Shape1.Top To Shape1.Top + Shape1.Height Step 0.5
    PSet (Shape1.Left + Shape1.Width, YPos), RGB(R, G, B)
    Next YPos
    'Left
    For YPos = Shape1.Top To Shape1.Top + Shape1.Height Step 0.5
    PSet (Shape1.Left, YPos), RGB(R, G, B)
    Next YPos
End Sub