VB6 Code - Mencari seluruh Printer Port

Lebih tepatnya mencari port printer tertentu dari seluruh printer port yang ada menggunakan kode VB6. Adapun kode VB6 untuk mencari port tertentu dari seluruh printer port yang ada adalah sebagai berikut:

Public Function FindPrinterPort(Port As String) As Boolean

    Dim P As Printer, Found As Boolean
    For Each P In Printers
        If Printer.Port = Port & ":" Then
            Found = True
            Exit For
        End If
    Next

    FindPrinterPort = Found

End Function

Demikian VB6 kode untuk mencari port tertentu dari seluruh printer port yang ada.