''' <summary>
''' Prints names of Kodak device profiles.
''' </summary>
''' <param name="device">The device.</param>
Public Shared Sub ShowKodakDeviceProfiles(device As Vintasoft.Twain.Device)
    ' create profile collection for Kodak device
    Dim profiles As New Vintasoft.Twain.KodakDeviceProfileCollection(device)

    ' print the device name
    System.Console.WriteLine("'{0}' device has {1} profiles:", device.Info.ProductName, profiles.Count)

    ' for each profile
    For i As Integer = 0 To profiles.Count - 1
        ' print the profile English name
        System.Console.WriteLine("- Profile: {0}, Name: {1}", i, profiles(i).EnglishName)
    Next
End Sub

/// <summary>
/// Prints names of Kodak device profiles.
/// </summary>
/// <param name="device">The device.</param>
public static void ShowKodakDeviceProfiles(Vintasoft.Twain.Device device)
{
    // create profile collection for Kodak device
    Vintasoft.Twain.KodakDeviceProfileCollection profiles = new Vintasoft.Twain.KodakDeviceProfileCollection(device);

    // print the device name
    System.Console.WriteLine("'{0}' device has {1} profiles:", device.Info.ProductName, profiles.Count);

    // for each profile
    for (int i = 0; i < profiles.Count; i++)
    {
        // print the profile English name
        System.Console.WriteLine("- Profile: {0}, Name: {1}", i, profiles[i].EnglishName);
    }
}