تو قسمت Form Timerاین دستور رو بنویس و هر وقت خواستی Lable مورد نظر رو Visible کن این دستور اجرا میشه

Private Sub Form_Timer()
Dim myvalue
Randomize
myvalue = Int((15 * Rnd) + 2)
Me.Examplelbl.BackColor = QBColor(Int(Rnd * 10))
End Sub


راستی در قسمت Timer Interval مربوط به فرم ،،،،،،،،،،،،، عدد 1024 زو وارد کن.