Example 1:

Dim x = New With { _
    .Name = "Eric", _
    .Phone = "555-1212" _
}
Console.WriteLine("x.Name:" + x.Name)
Console.WriteLine("x.Phone:" + x.Phone)

Example 2:

Public Class Customer
    Private m_name As String
    Private m_address As String
    Private m_phone As String
    Public Property Name As String
        Get
            Return m_name
        End Get
        Set(ByVal value As String)
            m_name = value
        End Set
    End Property
    Public Property Address As String
        Get
            Return m_address
        End Get
        Set(ByVal value As String)
            m_address = value
        End Set
    End Property
    Public Property Phone As String
        Get
            Return m_phone
        End Get
        Set(ByVal value As String)
            m_phone = value
        End Set
    End Property
End Class

Example 3:

Dim c As Customer = GetCustomer()
Dim x = New With { _
    .Name = c.Name, _
    .Phone = c.Phone _
}

Example 4:

Dim custList() As Customer = { _
    New Customer With { _
        .Name = "Bob", _
        .Address = "123 Main Street, Seattle, WA 98111", _
        .Phone = "555-1234" _
    }, _
    New Customer With { _
        .Name = "Bill", _
        .Address = "555 Center Street, Tacoma, WA 97158", _
        .Phone = "555-9999" _
    } _
}
Dim newCustList = _
    custList.Select( _
        Function(c) New With { _
            .UCName = c.Name.ToUpper, _
            .UCAddress = c.Address.ToUpper _
        } _
    )
For Each c In newCustList
    Console.WriteLine(c.UCName)
Next

Example 5:

Dim collection1() As Integer = {1, 2, 3}
Dim collection2() As Integer = {4, 5, 6}
Dim q1 = _
    From i In collection1 _
    Select New With { _
        .FromCollection = 1, _
        .Value = i _
    }
Dim q2 = _
    From i In collection2 _
    Select New With { _
        .FromCollection = 2, _
        .Value = i _
    }
Dim q3 = q1.Concat(q2)
For Each v In q3
    Console.WriteLine(v)
Next