[RESOLVED] listbox problem

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

< Code:

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

This generates a different number in textbox.

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

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

Code:

---

    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

---

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.

Code:

---

    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

---

Absolutely perfect thanks very much dbasnett.

. Code:

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