freebasic秀一張圖

事先準備一張p1.bmp圖檔

Screen 18, 32
Cls
BLoad "p1.bmp"
Sleep

秀一張48x48的圖
ScreenRes 320, 200, 32
Dim myImage As Any Ptr = ImageCreate( 48, 48 )
BLoad "48.bmp", myImage
Put (10,10), myImage
ImageDestroy( myImage )
Sleep