Visual Basic

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

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

Private data As String() = {"One", "Two", "Three", "Four"}

Public Sub New()
	InitializeComponent()
	addhandler listBox1.format, addressof listBox1_Format
	listBox1.DataSource = data
End Sub

Private Sub listBox1_Format(sender As Object, e As ListControlConvertEventArgs)
	Dim list As IList = DirectCast(DirectCast(sender, ListBox).DataSource, IList)
	Dim idx As Int32 = list.IndexOf(e.ListItem)
        ' format as "1. One",  "2. Two" etc
	e.Value = String.Format("{0}. {1}", idx + 1, e.ListItem)
End Sub

listBox1.Format += New ListControlConvertEventHandler(listBox1_Format)

addhandler listbox1.format, addressof listbox1_format

Public MyDialogClass

Private MyDialogClass

The Mighty Atom wrote:

Lol, you're Dutch too!

The Mighty Atom wrote:

Anyway, just to make sure i understand, i need to change

Private Property SomeColor As Color
  Get
    Return Me._someColor
  End Get
  Set
    Me._someColor = value
  End Set
End Property

Public Class Form1
    Private MyPanel As New MyPanelClass ' we create a new variable from our class
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        MyPanel.Parent = Me
        MyPanel.Dock = DockStyle.Fill
        MsgBox(MyPanel.BackColor.ToString) ' Exception, since MyPanel.BackColor returns Nothing
    End Sub
End Class
Public Class MyPanelClass
    Inherits Panel ' let's extend the panel

    <System.ComponentModel.BrowsableAttribute(False)> _
    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)> _
    Shadows ReadOnly Property BackColor
        Get
            Return Nothing
        End Get
    End Property
End Class

Friend Class MyDialogForm
    Inherits Form
    .
    .  yada, yada, yada
    .
End Class

Public Class MyDialog
    Implements IDisposable
 
    ' This keeps an instance of your dialog internal to
    ' this class, hiding EVERYTHING about it from the consumer.

    Private _dialogForm As New MyDialogForm
 
    ' Now you just have to give the consumer exactly the things
    ' you want to expose.

    Public Function ShowDialog() As DialogResult
        Return _dialogForm.ShowDialog()
    End Function
 
    ' You can expose any other properties you want.  You can even
    ' use the internal form object as a backing field for your
    ' properties, where appropriate.

    Public Property BackColor As Color
        Get
            Return _dialogForm.BackColor
        End Get
        Set(value as Color)
            _dialogForm.BackColor = Value
        End Set
    End Property

    ' A form shown with ShowDialog has to be Disposed when you're
    ' done with it, so in the Dispose code, just look for the line
    ' that says "TODO: dispose managed state (managed objects)." and
    ' put this line under it:
    _dialogForm.Dispose

End Class

Dim d As New MyDialog
Dim result As DialogResult

result = d.ShowDialog()