Private Sub Command1_Click()
    Dim x&, y&, hWnd&
 
    x = List2.ListCount
    If x > 0 Then
      For y = 0 To x - 1
       hWnd = List2.ItemData(y)
       If hWnd = Me.hWnd Then MsgBox ("Ausgeführt.")
       ShowWindow hWnd, SW_SHOWMAXIMIZED
       Next y
    End If
End Sub

mfg Lukas