如何将此Northwind automapper代码从C#转换为VB

using AutoMapper;

public class Customer
{
    public string FirstName { get; set; }
    public string LastName { get; set; }
}

public class CustomerDTO
{
    public string FullName { get; set; }
}

public class MappingProfile : Profile
{
    public MappingProfile()
    {
        CreateMap<Customer, CustomerDTO>()
            .ForMember(dest => dest.FullName, opt => opt.MapFrom(src => src.FirstName + " " + src.LastName));
    }
}

public class Program
{
    public static void Main()
    {
        var config = new MapperConfiguration(cfg => cfg.AddProfile<MappingProfile>());
        var mapper = new Mapper(config);

        var customer = new Customer { FirstName = "John", LastName = "Doe" };
        var customerDTO = mapper.Map<CustomerDTO>(customer);

        Console.WriteLine(customerDTO.FullName);
    }
}

Imports AutoMapper

Public Class Customer
    Public Property FirstName As String
    Public Property LastName As String
End Class

Public Class CustomerDTO
    Public Property FullName As String
End Class

Public Class MappingProfile
    Inherits Profile

    Public Sub New()
        CreateMap(Of Customer, CustomerDTO)() _
            .ForMember(Function(dest) dest.FullName, Sub(opt) opt.MapFrom(Function(src) src.FirstName & " " & src.LastName))
    End Sub
End Class

Public Class Program
    Public Shared Sub Main()
        Dim config = New MapperConfiguration(Function(cfg) cfg.AddProfile(Of MappingProfile)())
        Dim mapper = New Mapper(config)

        Dim customer = New Customer With {.FirstName = "John", .LastName = "Doe"}
        Dim customerDTO = mapper.Map(Of CustomerDTO)(customer)

        Console.WriteLine(customerDTO.FullName)
    End Sub
End Class