• Home
 · 
• Miscellaneous
 · 
• randomly changing the form caption ,label caption ,label tooltip text and label bckcolor.

randomly changing the form caption ,label caption ,label tooltip text and label bckcolor.

randomly changing the form caption ,label caption ,label tooltip text and label bckcolor.

API Declarations


Dim i As Integer




Rate randomly changing the form caption ,label caption ,label tooltip text and label bckcolor.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Label1.Caption = ""
Label1.Width = Me.Width
End Sub
Private Sub Timer1_Timer()
Label1.BackColor = QBColor(Rnd() * 15)
arr(0) = "Faith  "
arr(1) = " College "
arr(2) = " Of"
arr(3) = "Information "
arr(4) = " Technology"
arr(5) = " This Programe Made By"
arr(6) = " Hafeez Ullah Arain"
If i = 6 Then
Label1.Caption = arr(6)
Me.Caption = arr(6)
i = 0
Else
Label1.Caption = arr(i)
Me.Caption = arr(i)
Label1.ToolTipText = arr(i)
i = i + 1
End If
End Sub