Umständlich über SDK (sollte auf allen OS laufen)
Code:
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
Import ""
PB_Object_EnumerateStart (PB_Object)
PB_Object_EnumerateNext (PB_Object, ID)
PB_Object_EnumerateAbort (PB_Object)
PB_Image_Objects
EndImport
CompilerElse
ImportC ""
PB_Object_EnumerateStart (PB_Object)
PB_Object_EnumerateNext (PB_Object, ID)
PB_Object_EnumerateAbort (PB_Object)
PB_Image_Objects
EndImport
CompilerEndIf
Procedure.i GetImageObject(ImageID)
Protected Result = -1
PB_Object_EnumerateStart(PB_Image_Objects)
While PB_Object_EnumerateNext(PB_Image_Objects, @Result)
If ImageID = ImageID(Result)
PB_Object_EnumerateAbort(PB_Image_Objects)
Break
EndIf
Wend
ProcedureReturn Result
EndProcedure
Bild = GetImageObject(GetGadgetState(#ImageGadget))
Man sollte beachten, das man KEIN Image mit " 0 " erstellt hat

Oder aber man speichert den Wert vorher in einer Variablen....