• Home
 · 
• Miscellaneous
 · 
• Change label caption randomly

Change label caption randomly

Change label caption randomly

API Declarations


Dim i As Integer



Rate Change label caption randomly

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_Load()
arr(0) = "Ford Mustang"
arr(1) = "GMC Sierra"
arr(2) = "Honda Accord"
arr(3) = "Toyota Tacoma"
arr(4) = "Dodge Durango"
End Sub

Private Sub Timer1_Timer()
If i = 4 Then
    Label1.Caption = arr(4)
    i = 0
Else
Label1.Caption = arr(i)
i = i + 1
End If
End Sub