I tried to post this very thing at stackoverflow. It was rejected. I should have known the only the only place that would be accepting is codeproject. What would you do to professs your love to the women (or man) you adore?

using System;
void main() {
 while (true) {
  string I = "love you, forever."
  Console.WriteLine("I {0}", I);
 }
}

I think this is what you are asking for VB.Net

Dim answers() As String = { "Bleu", "Red", "Black" }

For I As Integer = 0 To answers.Length - 1
 ListBox1.Items.Add((I + 1).ToString() + ". " + answers(I))
Next

VB6

Dim I As Integer
Dim answers(2) As String

answers(0) = "Bleu"
answers(1) = "Red"
answers(2) = "Black"

For I = 0 To UBound(answers)
 List1.AddItem CStr(I + 1) + ". " + answers(I)
Next I

To add more answers to the listbox, just add more elements to the array.