VB.Net Lambda查询

Dim myList As List(Of Tickets) = (From a In db.myTable
                  Where a.ID = id AndAlso a.IsOnline = True).ToList

到lambda

Dim myList as List(of Tickets) = db.Where(Function(x) x.ID = id ANDAlso a.IsOnline = true).ToList

我如何编写lambda版本并告诉它用结果创建一个新对象？像这样：

Dim myList As List(Of Tickets) = (From a In db.myTable
                             Where a.ID = id AndAlso a.IsOnline = True
                             Select New TicketType With {
                                       .Id = a.rsID.ToString,
                                       .Title = a.rsTitle}).ToList

.Select(Function(x) New TicketType With { ... })