How can I change the capacity of a listbox?????

[kilopi]

I'm doing a quiz program. And dont wanna use to much forms, so how can i make the capacity of the listbox change after someone chose the good anwser. Thanx

Ps: code sample would be nice

Thanx,

[Hack]

What do you mean by "change"?

Do you want to clear out all entries except the correct answer?

[chrisf]

Changing the height will change the no. of entries you can see at once.

[vbgladiator]

To clear all the items except the right answer.

[Highlight=VB]
dim s as string
dim i as integer

s = "Correct Answer"

for i = 0 to list1.listcount-1
if ucase(list1.list(i)) <> ucase(s) then
list1.removeitem(i)
end if
next i

[Hack]

These are both things that I thought of, but I wasn't, and still am not, sure exactly what the question is.

[kilopi]

Look an example:

1) what is 5+2

3
4
7


If list1.text = "7" then
label1.caption = " 2) what is 7-8" 'thats the next qeustion'


Now my qeustion is, is there a code to change the answers in the listbox, the same what I did whit the qeustion in label1.

[vbgladiator]

Option Explicit
 
Private Sub Command1_Click()
    If List1.List(List1.ListIndex) = "3" Then
        Label1.Caption = "2) What is 2 + 2"
        List1.Clear
        List1.AddItem "5"
        List1.AddItem "8"
        List1.AddItem "4"
    Else
        Exit Sub
    End If
End Sub
 
Private Sub Form_Load()
    Label1.Caption = "1) What is 1 + 2"
    List1.AddItem "1"
    List1.AddItem "5"
    List1.AddItem "3"
End Sub

[GavinUk]

That looks good i'll make a prog like that myself when i'm bored.