I need help

[Frederick]

I think its the 33 for hardware image thats off, should be 32 is my guess.

This works, i put something on the screen to have something to show

Code: (Select All)

Dim s As Long

Dim s32 As Long

Dim s10 As Long



s = _NewImage(1200, 700, 32)



Screen s

_ScreenMove 0, 0

_Delay .3 ' seem to get blank screen first delay to get full screen setup



For i = 1 To 1000

    Print "Hello World! ";

Next

s32 = _ScreenImage



_PutImage , s32, s

s10 = _CopyImage(s32, 32) ' <<<< not 33

_FreeImage s32



_Delay 5

Cls



_Delay 2

_PutImage (0, 0), s10, s



_Delay 5

System

I added some mods for smoother working IMHO

Check this out