Add a graffiti effect to a form.

by DiP's VB World ()
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sat 13^th March 1999
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Add a graffiti effect to a form.



    If frm.WindowState = vbMinimized Then Exit Sub
    frm.BackColor = vbBlack
    frm.ScaleHeight = 100
    frm.ScaleWidth = 100
    For X = 0 To 300
        DoEvents
        X1 = Int(Rnd * 101)
        X2 = Int(Rnd * 101)
        Y1 = Int(Rnd * 101)
        Y2 = Int(Rnd * 101)
        colo = Int(Rnd * 15)
        frm.Line (X1, Y1)-(X2, Y2), QBColor(colo)
        frm.Line (X1, Y2)-(X2, Y1), QBColor(colo)
        frm.Line (X2, Y1)-(X1, Y2), QBColor(colo)
        frm.Line (Y1, Y2)-(X1, X2), QBColor(colo)
    Next X
End Sub

Download this snippet Add to My Saved Code

Add a graffiti effect to a form. Comments

No comments have been posted about Add a graffiti effect to a form.. Why not be the first to post a comment about Add a graffiti effect to a form..

Add a graffiti effect to a form.

Add a graffiti effect to a form. Comments

Post your comment

Difficulty