How to select a printer paper tray

IPaper paper = new PaperClass();
paper.PrinterName = "\\\\typo\\ptolemy";

// Create a hashtable to store values returned by the tray's enumerator. 
Hashtable trays = new Hashtable();
IEnumNamedID trayEnum = paper.Trays;
short targetTrayID = 0;
int trayIdTemp;
string trayNameTemp;

//trayEnum returns a TrayID number as the method's return value and assigns a
// tray name string to a string variable passed in by reference (trayNameTemp).
trayEnum.Reset();
trayIdTemp = trayEnum.Next(out trayNameTemp);

//Continue to loop through the tray enumerator and store all returned values in the tray's hashtable, storing the
// tray IDs as hashtable keys, and the tray names as hashtable values.
// Once complete, the hashtable contains valid tray IDs and names for all trays supported by the printer driver.
while (trayIdTemp > 0)
{
    trays.Add(trayIdTemp, trayNameTemp);
    trayIdTemp = trayEnum.Next(out trayNameTemp);
}

//Store the current tray ID in case the find routine does not locate the tray name expected.
targetTrayID = paper.TrayID;

//Loop through the hashtable, searching for a specific tray name. Once found, assign the tray ID
// to a variable.
foreach (DictionaryEntry de in trays)
{
    Console.WriteLine("{0}: {1}", de.Key, de.Value);
    if (de.Value.ToString().Contains("Manual"))
    {
        targetTrayID = (short)(int)de.Key;
        break;
    }
}

//Assign the matched tray ID to the pPaper.TrayID property. Because the ID was returned
// by the tray's enumerator, you can be confident it is a valid TrayID for the current print
// driver.
paper.TrayID = targetTrayID;

Dim paper As IPaper = New Paper
paper.PrinterName = "\\typo\ptolemy"

' Create a hashtable to store values returned by the tray's enumerator.
Dim trays As New Hashtable
Dim trayEnum As IEnumNamedID
trayEnum = paper.Trays
Dim targetTrayID As Short = 0
Dim trayIdTemp As Integer
Dim trayNameTemp As String = ""

'trayEnum returns a TrayID number as the method's return value and assigns a
' tray name string to a string variable passed in by reference (trayNameTemp).
trayEnum.Reset()
trayIdTemp = trayEnum.Next(trayNameTemp)

'Continue to loop through the tray enumerator and store all returned values in the tray hashtable, storing the
' tray IDs as hashtable keys and the tray names as hashtable values.
' Once complete, the hashtable contains valid tray IDs and names for all trays supported by the printer driver.
Do While trayIdTemp > 0
    trays.Add(trayIdTemp, trayNameTemp)
    trayIdTemp = trayEnum.Next(trayNameTemp)
Loop

'Store the current tray ID in case the find routine does not locate the tray name expected.
targetTrayID = paper.TrayID

'Loop through the hashtable searching for a specific tray name. Once found, assign the tray ID
' to a variable.
Dim de As DictionaryEntry
For Each de In trays
    Console.WriteLine("{0}: {1}", de.Key, de.Value)
    If de.Value.ToString().Contains("Manual") Then
        targetTrayID = de.Key
        Exit For
    End If
Next

'Assign the matched tray ID to the pPaper.TrayID property. Because the ID was returned
' by the tray's enumerator, you can be confident it is a valid TrayID for the current print
' driver.
paper.TrayID = targetTrayID