[Gambas-user] Question Rnd vb to gambas

[Fabien Bodard]

Dim i2 As Integer
i2 = Int(Rnd() * (lbDatos2.Items.Count - 1))
lis.lisx.Text = lis.lisx.Text & lbDatos2.Items.Item(i2) & vbCrLf & vbCrLf




gambas



Dim i2 as integer

i2 = int(Rnd()*(lbDatos2.Count-1)

txtB.Text &= lbDatos2[i2] & "\n\n"


that's all :)