XProfan

CLS
Declare bm&, pic&[]
pic&[1]=Create("hNewPic", width(%hwnd)-20, 110, RGB(255,255,255))
pic&[2]=Create("hNewPic", width(%hwnd)-20, 110, RGB(255,255,255))
pic&[3]=Create("hNewPic", width(%hwnd)-20, 110, RGB(255,255,255))
bm&=Create("Bitmap", %hwnd, pic&[1], 10, 10)

Whileloop 3

    StartPaint pic&[&loop]
    UsePen 0,0,0
    UseBrush 4,RGB(255,0,0)
    Rectangle 0,0 - (%BmpX/3)*&loop,110
    EndPaint
    Sendmessage(bm&,$172,0,pic&[&loop])
    Waitinput

EndWhile

end

Declare eins%,zwei%,drei%,F%
cls
eins%=@Create("hSizedPic", -1, "eins.bmp",128, 20, 1)
zwei%=@Create("hSizedPic", -1, "zwei.bmp",128, 20, 1)
drei%=@Create("hSizedPic", -1, "drei.bmp",128, 20, 1)

while f%<>3

    f%=f%+1
    print f%

    if f%=1:@Create("Bitmap", %hWnd, eins%, 240, 110):DeleteObject eins%:endif

        if f%=2:@Create("Bitmap", %hWnd, zwei%, 240, 110):DeleteObject zwei%:endif

            if f%=3:@Create("Bitmap", %hWnd, drei%, 240, 110):DeleteObject drei%:endif

                SLEEP 1500

            endWhile

cls rgb(0,0,255)
MCls 100, 30 ,rgb(255,255,255)
var pic0&=Create("hPic",0,"&MEMBMP" )
MCls 100, 30 ,rgb(0,255,0)
var pic1&=Create("hPic",0,"&MEMBMP" )
MCls 100, 30 ,rgb(255,0,0)
var pic2&=Create("hPic",0,"&MEMBMP" )
MCls 100, 30 ,rgb(155,155,155)
var pic3&=Create("hPic",0,"&MEMBMP" )
var f%=0
var bmp&=Create("Bitmap", %hwnd, pic0&, 20, 20)
inc f%
case f%=1: Sendmessage(Bmp&,$0172,0,Pic1&)
waitinput
inc f%
case f%=2: Sendmessage(Bmp&,$0172,0,Pic2&)
waitinput
inc f%
case f%=3: Sendmessage(Bmp&,$0172,0,Pic3&)
waitinput
f%=0
case f%=0: Sendmessage(Bmp&,$0172,0,Pic0&)
waitinput
DeleteObject bmp&,pic0&,pic1&,pic2&,pic3&