[color=blue]On Error Resume Next[/color]
 
  [color=blue]Dim[/color] objQuery  [color=blue]As Object[/color], objField _
    [color=blue]As Object[/color]
 
  List1.Clear
 
  [color=blue]Set[/color] objQuery = GetObject( _
    "winmgmts:\\.\root\cimv2").ExecQuery( _
    "Select * from Win32_Service")
 
  [color=blue]If[/color] objQuery [color=blue]Is Nothing[/color] _
    [color=blue]Then[/color] [color=blue]Exit Sub[/color]
  [color=blue]For Each[/color] objField [color=blue]In[/color] objQuery
    List1.AddItem objField.Name
  [color=blue]Next[/color] objField
 
  [color=blue]Set[/color] objField = [color=blue]Nothing[/color]
  [color=blue]Set[/color] objQuery = [color=blue]Nothing[/color]

Viel Spass,
R@lf