'Set the DataGrid's DataContext to be a filled DataTable
CustomerGrid.DataContext = custDataTable

'Additional using statements
Imports System.Data
Imports System.Collections.ObjectModel
Imports System.Diagnostics


...


Class Window1


...


Public Sub New()
    ' This call is required by the Windows Form Designer.
    InitializeComponent()
    ' Add any initialization after the InitializeComponent() call.

    'GetData() creates a collection of Customer data from a database
    Dim custdata As ObservableCollection(Of Customer) = GetData()

    'Bind the DataGrid to the customer data
    DG1.DataContext = custdata

End Sub


...


'Defines the customer object
Public Class Customer
    Private _FirstName As String
    Public Property FirstName() As String
        Get
            Return _FirstName
        End Get
        Set(ByVal value As String)
            _FirstName = value
        End Set
    End Property
    Private _LastName As String
    Public Property LastName() As String
        Get
            Return _LastName
        End Get
        Set(ByVal value As String)
            _LastName = value
        End Set
    End Property
    Private _Email As Uri
    Public Property Email() As Uri
        Get
            Return _Email
        End Get
        Set(ByVal value As Uri)
            _Email = value
        End Set
    End Property
    Private _IsMember As Boolean
    Public Property IsMember() As Boolean
        Get
            Return _IsMember
        End Get
        Set(ByVal value As Boolean)
            _IsMember = value
        End Set
    End Property
    Private _Status As OrderStatus
    Public Property Status() As OrderStatus
        Get
            Return _Status
        End Get
        Set(ByVal value As OrderStatus)
            _Status = value
        End Set
    End Property

End Class


...


End Class


...


Public Enum OrderStatus
    None
    [New]
    Processing
    Shipped
    Received
End Enum


...


'Converts the mailto uri to a string with just the customer alias
Public Class EmailConverter
    Implements IValueConverter

    Public Function Convert(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.Convert
        If value IsNot Nothing Then
            Dim email As String = value.ToString()
            Dim index As Integer = email.IndexOf("@")
            Dim [alias] As String = email.Substring(7, index - 7)
            Return [alias]
        Else
            Dim email As String = ""
            Return email
        End If
    End Function

    Public Function ConvertBack(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.ConvertBack
        Dim email As New Uri(DirectCast(value, String))
        Return email
    End Function
End Class