Private Enum PrinterStatus
        PrinterIdle =  3 
        PrinterPrinting =  4 
        PrinterWarmingUp =  5 
        ' For more states see WMI docs.
    End Enum

    Private Function PrinterStatusToString(ByVal ps As PrinterStatus) As String
        Dim s As String
        Select Case ps
            Case PrinterStatus.PrinterIdle
                s = "waiting (idle)"
            Case PrinterStatus.PrinterPrinting
                s = "printing"
            Case PrinterStatus.PrinterWarmingUp
                s = "warming up"
            Case Else   ' Vielleicht gibt es noch weitere Fälle...
                s = "unknown state"
        End Select
        PrinterStatusToString = s
    End Function

Private Sub Form1_Load( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs _
) Handles MyBase.Load
    Dim strPrintServer As String
    strPrintServer = "localhost"
    Dim WMIObject As String, PrinterSet As Object, Printer As Object
    WMIObject = "winmgmts://" & strPrintServer
    PrinterSet = GetObject(WMIObject).InstancesOf("win32_Printer")
    For Each Printer In PrinterSet
        MsgBox( _
            Printer.Name & ":  " & _
            PrinterStatusToString(Printer.PrinterStatus) _
        )
    Next Printer
End Sub

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        If keyData =  131089  Then
        ля ля ля    
        End If
    End Function

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then