نحوه تنظیمات on timer یک فرم با ماژول

[royasaz_bam]

سلام در ترم تابع ذیل که در on timer فرم قرار میدهیم و با تنظیم تایمر تیکس باکس چشمک میزند :
Me.Text2.BackColor = QBColor(Int(Rnd * 5))
حال اگر بخواهیم این دستور را در یک ماژول بنویسیم که بتوانیم آن را هر زمان که خواستیم فرا بخوانیم چه باید کرد

[Abbas Amiri]

یک راه روال زیر می باشد:


Sub BlinkCtl(ctl As Control, Optional t As Long , Optional Random As Boolean)
If t Then ctl.Parent.Form.TimerInterval = t
If Random Then
ctl.ForeColor = QBColor(Int(Rnd * 5))
Else
ctl.ForeColor = IIf(ctl.ForeColor = vbBlack, vbRed, vbBlack)
End If
End Sub