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 :) ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user