How can I create a bitmap and assign to picture ?

[Roy Chan]

Dear Sir,

I want to create a bitmap and then draw a box in the bitmap. After that I want to resize the bitmap and assign it to a picture.
I use the following the code. But nothing appear in the picture.

Code Select Expand


Local QrImg As Dword
Local w as long

w=21

Control Add Graphic,  HWND_FRMMAIN_PICTURE1, qrimg, "", 0, 0, w, w
Graphic Bitmap New w,w To QrImg
Graphic Box (0,0)-(w,w),0,%Black,%Black
Graphic Attach HWND_FRMMAIN_PICTURE1, qrimg, ReDraw 
Graphic Set Size 200,200      'I want to resize the whole bitmap to bigger size
Graphic ReDraw

SendMessage (HWND_FRMMAIN_PICTURE1, %STM_SETIMAGE, %IMAGE_BITMAP, QrImg)