GetImageFile
Control(strB, Bitmap).New1 (AppPath & imageFile)
transparentColor = Control(strB, Bitmap).GetPixel1(0,0)
SetTransparentColor(transparentColor)
Form1.ForeLayer = True
AddObject (strEB, "Brush")
Control(strEB, Brush).New1(transparentColor)
AddObject (strD, "Drawer")
Control(strD, Drawer).New1("Form1", True)
AddObject (strRS, "Rectangle")
Control(strRS, Rectangle).New1(0,0,Control(strB, Bitmap).Width, Control(strB, Bitmap).Height)
AddObject (strRD, "Rectangle")
T = Rnd(10,120) : L = T
Control(strRD, Rectangle).New1(T, L, smileySize, smileySize)
Control(strD, Drawer).DrawImage1(Control(strB, Bitmap).Value, Control(strRS, Rectangle).Value, _
Control(strRD, Rectangle).Value, True)