Private Sub sevQuality_Click() 
  Static bWorking As Boolean
  If bWorking Then Exit Sub
 
  bWorking = True
  With Me.sevQuality 
    If .List(0) = "" Then bWorking = False: Exit Sub 
    For Each p In Printers 
      If p.DeviceName = Me.sevPrinter.Text Then 
        .ListIndex = 2 
        For a = 0 To 2 
          If p.PrintQuality = .List(a) Then 
            .ListIndex = a 
            bWorking = False: Exit Sub 
          End If 
        Next a 
      End If 
    Next p 
  End With 
  bWorking = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de