• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Add a graffiti effect to a form.

Add a graffiti effect to a form.

Add a graffiti effect to a form.

Rate Add a graffiti effect to a form.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    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