كود بسيط يولد عرض قلاشى
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub mdrsh()
For ib = 0 To cc.UBound
Sleep 30
DoEvents
cc(ib).Visible = True
bb(ib).Visible = True
cc(ib).Height = cc(ib).Height + ib / 2
cc(ib).Width = cc(ib).Width + ib / 2
bb(ib).Height = bb(ib).Height + ib / 2
bb(ib).Width = bb(ib).Width + ib / 2
Next
For ib = 0 To cc.UBound
Sleep 30
DoEvents
cc(ib).Visible = False
bb(ib).Visible = False
Next
For ib = cc.UBound To 0 Step -1
Sleep 30
DoEvents
cc(ib).Visible = True
bb(ib).Visible = True
Next
For ib = cc.UBound To 0 Step -1
Sleep 30
DoEvents
cc(ib).Visible = False
bb(ib).Visible = False
Next
mdrsh
End Sub
Private Sub Form_Activate()
Call mdrsh
End Sub