Sub AnmeldungStart()
Dim myProg As String
myProg = "D:\Demon_Slayer_Anmeldeclient.exe"
TaskID = Shell(myProg, vbNormalFocus)
 
Zeitschleife für Bildaufbau…..?
 
  AppActivate TaskID
End Sub

Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As _
  Long, _
ByVal Y As Long)As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc _
  As Long) As Long
 
Public Function ScreenPixelColor(Optional ByVal X As Long = -1, _
Optional ByVal Y As Long = -1)As Long
 
    Dim nPoint As POINTAPI
    Dim nDC As Long
 
    If (X < 0) Or (Y < 0) Then
        GetCursorPos nPoint
    Else
        nPoint.X = X
        nPoint.Y = Y
    End If
    nDC = GetDC(0)
    ScreenPixelColor = GetPixel(nDC, nPoint.X, nPoint.Y)
    ReleaseDC 0, nDC
End Function