To switch it to a 2 dimensional array you just need commas(I believe):
VB Code:
Private mPhones(,) As String
Public Property Phones() As String(,)
Get
Return mPhones
End Get
Set(ByVal Value As String(,))
mPhones = Value
End Set
End Property
A more object oriented approach might be this:
VB Code:
Private _Phones As Phone()
Public Property Phones() As Phone()
Get
Return _Phones
End Get
Set(ByVal Value As Phone())
_Phones = Value
End Set
End Property
Public Class Phone
Public Enum PhoneTypes
Home
Cell
End Enum
Private _Number As String()
Public Property Number(ByVal type As PhoneTypes) As String
Get
Return _Number(type)
End Get
Set(ByVal Value As String)
_Number(type) = Value
End Set
End Property
Public Sub New()
'default
Dim ini As String() = {String.Empty, String.Empty}
_Number = ini
End Sub
Public Sub New(ByVal home As String, ByVal cell As String)
Dim ini As String() = {home, cell}
_Number = ini
End Sub
End Class