فقط یک Timer رو فرم بذارین و ترجیحاً interval اونو 10  قرار بدین کد زیر رو هم کپی کنین تا فرم خوشگلی ایجاد بشه .....


Private Sub Timer1_Timer()
    If Me.WindowState = vbMinimized Then Exit Sub
    Me.BackColor = vbBlack
    Me.ScaleHeight = 100
    Me.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)
        Me.Line (X1, Y1)-(X2, Y2), QBColor(colo)
        Me.Line (X1, Y2)-(X2, Y1), QBColor(colo)
        Me.Line (X2, Y1)-(X1, Y2), QBColor(colo)
        Me.Line (Y1, Y2)-(X1, X2), QBColor(colo)
    Next X
End Sub