version 6.50 0 Form1 238 268 1 ImageLib.dll 1 ImageLib.dll 4 drawer:Drawer rectsrc:Rectangle rectdst:Rectangle bmp:Bitmap 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addbutton(form1,Button3,110,120,85,23,"bmp on img",212,208,200,0,0,0,True,True,9)@ addbutton(form1,Button2,10,5,85,23,"Img on Frm",212,208,200,0,0,0,True,True,9)@ addbutton(form1,Button1,10,120,90,23,"Img on Img",212,208,200,0,0,0,True,True,9)@ addimage(form1,Image1,10,145,215,115,"cCenterImage","",245,245,220,True,True)@ addimagelist(form1,ImageList1,160,0,80,25,0,0)@ End Sub @EndOfDesignText@ Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show For i = 0 To 5 imagelist1.Add(i & ".jpg") Next rectsrc.New1(0,0,imagelist1.Width(0),imagelist1.Height(0)) End Sub Sub Button2_Click rectdst.New1(120,50,20,20) drawer.New1("form1",False) drawer.DrawImage1(imagelist1.Item(0),rectsrc.Value,rectdst.Value,False) drawer.Refresh2(rectdst.Value) End Sub Sub Button1_Click rectdst.New1(20,20,20,20) drawer.New2(image1.image,B4PObject(5)) drawer.DrawImage1(imagelist1.Item(0),rectsrc.Value,rectdst.Value,False) drawer.Refresh2(rectdst.Value) End Sub Sub Button3_Click bmp.New2(100,100) image1.Image = bmp.Value rectdst.New1(0,0,20,20) drawer.New2(image1.image,B4PObject(5)) drawer.DrawImage1(imagelist1.Item(0),rectsrc.Value,rectdst.Value,False) drawer.Refresh2(rectdst.Value) End Sub