[RESOLVED] listbox problem

[ftfk00]

hello,
Hope someone can help with listbox problem.I have two forms.on form 1 i have button and textbox,form 2 there is a listbox.I have 100 random numbers in listbox.when i press button on form1 i want textbox to display a totally different number each time.I already done this in vb6 but i want to convert it to vb 2008.
in vb6 i use

Randomize
Form1.Text1.Text = Form2.List1.List(Int(Rnd() * Form2.List1.ListCount))

This generates a different number in textbox.

[keystone_paul]

Check out the Random class in the MSDN - that is what you need.

[ftfk00]

Thanks for replying.I am completely new to vb 2008 and am struggling with this conversion.so if you have any more suggestions it would be great.thanks

[dbasnett]

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'in form load add - ListBox1.Items.Clear()
        addNums()
        Dim i As Integer = rand.Next(0, ListBox1.Items.Count)
        TextBox1.Text = ListBox1.Items(i).ToString
        ListBox1.Items.RemoveAt(i)
    End Sub
    Private Sub addNums()
        If ListBox1.Items.Count > 0 Then Exit Sub
        ListBox1.Items.Clear()
        For x = 1 To 10
            ListBox1.Items.Add(rand.Next(1, 1001))
        Next
    End Sub

[ftfk00]

Thanks for the reply.As i siad i am new to vb 2008.if i already have the listbox populated with numbers.(copy and pasted from excel),I just need to be able to display a completely random number in textbox from the numbers in my listbox already.just like in vb6.I was just hoping for something to match the code i had in vb6.Thanks again.

[dbasnett]

    Dim rndm As New Random
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ListBox1.Items.Count > 0 Then
            Dim i As Integer = rndm.Next(0, ListBox1.Items.Count)
            TextBox1.Text = ListBox1.Items(i).ToString
            ListBox1.Items.RemoveAt(i)
        End If
    End Sub

[ftfk00]

Absolutely perfect thanks very much dbasnett.

If Form2.ListBox1.Items.Count > 0 Then
            Dim i As Integer = rndm.Next(0, Form2.ListBox1.Items.Count)
            Me.TextBox1.Text = Form2.ListBox1.Items(i).ToString
            Form2.ListBox1.Items.RemoveAt(i)
        End If