XProfan

 {$cleq}
#include instrument.inc
mensajes de los usuarios wm_close
cls
long 	myPanel1=create.instrument("bg.jpg","zeiger.png",64,64,0)
long 	myPanel2=create.instrument("bg.jpg","zeiger.png",128,128,0)
long 	myPanel3=create.instrument("bg.jpg","zeiger.png",256,256,0)

do{

    instrument.setValue(myPanel1,getTickCount*10)
    instrument.draw(myPanel1,hWnd,100,100)
    / /
    instrument.setValue(myPanel2,getTickCount*20)
    instrument.draw(myPanel2,hWnd,200,100)
    / /
    instrument.setValue(myPanel3,mousex*1000)
    instrument.draw(myPanel3,hWnd,400,100)
    / /
    waitinput 20

    seleccionar %uMessage

        caseof wm_close : romper

    EndSelect

}

instrument.destroy(myPanel1)
instrument.destroy(myPanel2)
end