[VB] Random Titlebar *

[Ronald_stage]

waarom werkt dit niet

code:

Private Sub Command1_Click()

Dim arrMess As Array
   arrMess = ("blaat1", "blaat2", "blaat3", "blaat4")
   Label1.Caption = arrMess(Rand(4))
End Sub

[Nazgul]

code:

Private Sub Command1_Click()
Randomize Timer

Dim arrMess As Array
   arrMess = ("blaat1", "blaat2", "blaat3", "blaat4")
   Label1.Caption = arrMess(Cint(Rnd(1)*4))
End Sub

Rnd(1) geeft een getal tussen 0 en 1. Bijvoorbeeld 0,436.
Even vemenigvuldigen met je limiet.
Daar even een Cint overheen en je krijgt je array-index.