Declare Function GetForegroundWindow Lib "user32.dll" () As IntPtr

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten

        Dim fgw As IntPtr = GetForegroundWindow()
        Dim fgwpid As IntPtr
        For Each p As Process In Process.GetProcesses()
            If fgw = p.MainWindowHandle Then
                fgwpid = p.Id
            End If
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten