Pausar cola de impresión vb.net

Esto pausa el documento a imprimir en la cola de impresión y si funciona

'----Pausa el documento--------
    Public Sub pausa()
        Dim m As Integer
        If Form1.ListView1.Items.Count = 0 Then
               Exit Sub
               End If
              For m = 0 To Form1.ListView1.Items.Count.ToString - 1
                     Dim job As ManagementObject = getselectedjob(Form1.ListView1.Items(m).SubItems(0).Text)
                    If job Is Nothing Then
                     Exit Sub
                     End If
                    If Not (CInt(job("StatusMask") And 1)) = 1 Then
                           Dim returnValue As Integer = CType(job.InvokeMethod("pause", Nothing), Integer)
                    End If
           Next
 End Sub
    '----obtiene informacion de untrabajo seleccionado-------
    Function getselectedjob(ByVal jobname As String) As ManagementObject
        Try
            Dim job As New ManagementObject("Win32_PrintJob='" & jobname & "'")
            job.Get()
            Return (job)
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

Donde "pausa()" cambia e estausmask de a "paused" y getselectedjob obtiene la información del documetno en la cola

Pero necesito como pausar la cola de impresión, pues el documento ya pude pausar o despausar

¿Cómo pauso y despauso la cola de impresión? Estoy usando vb.net 2012