'TODO: Add 'Add_This.bas' file to this project.
'Or make appropriate Declaration for all APIs used below.
'----This draws a kite-------------------------------------
Form1.AutoRedraw = True
Form1.ScaleMode = 3 ' Pixcel
Form1.DrawWidth = 1
Form1.FillColor = 0
Form1.ForeColor = 0
Form1.FillStyle = 1
Form1.BackColor = 16777215
'-----------------------------------------
Form1.Line (61, 31)-(117, 94), 0
Form1.Line (60, 31)-(24, 109), 0
Form1.Line (24, 109)-(69, 151), 0
Form1.Line (69, 151)-(63, 171), 0
Form1.Line (63, 171)-(113, 160), 0
Form1.Line (113, 160)-(98, 144), 0
Form1.Line (98, 144)-(116, 92), 0
Form1.Line (61, 31)-(88, 166), 0
Form1.Line (26, 107)-(41, 83), 0
Form1.Line (41, 83)-(55, 65), 0
Form1.Line (55, 65)-(74, 59), 0
Form1.Line (74, 59)-(96, 72), 0
Form1.Line (96, 72)-(103, 79), 0
Form1.Line (70, 151)-(82, 138), 0
Form1.Line (82, 138)-(98, 144), 0
Form1.ForeColor = 65280
Form1.Line (83, 57)-(48, 132), 65280
Form1.Line (100, 75)-(67, 149), 65280
Form1.FillColor = 65280
Form1.FillStyle = 0
ExtFloodFill Form1.hdc, 79, 81, 16777215, 1
ExtFloodFill Form1.hdc, 68, 104, 16777215, 1
ExtFloodFill Form1.hdc, 87, 63, 16777215, 1
Form1.FillColor = 65535
ExtFloodFill Form1.hdc, 69, 53, 16777215, 1
ExtFloodFill Form1.hdc, 59, 53, 16777215, 1
ExtFloodFill Form1.hdc, 59, 79, 16777215, 1
ExtFloodFill Form1.hdc, 72, 64, 16777215, 1
ExtFloodFill Form1.hdc, 100, 92, 16777215, 1
ExtFloodFill Form1.hdc, 80, 137, 16777215, 1
Form1.FillColor = 32768
ExtFloodFill Form1.hdc, 82, 157, 16777215, 1
ExtFloodFill Form1.hdc, 94, 156, 16777215, 1
Form1.FillStyle = 1
Form1.Line (68, 61)-(103, 114), 0
Form1.Line (103, 114)-(78, 117), 0
Form1.Line (102, 113)-(170, 181), 0
Form1.Refresh
