暗淡？DW？作為？整數，？bChangeDrawWidth？作為？布爾代數學體系的
暗淡？C(0？去哪？2)?作為？整數，？bChangeRGB？作為？布爾代數學體系的
暗淡？Bn？作為？整數，？黃牛？作為？單身，？oY？作為？單壹的
私人？Sub？Form_Load()
PenStyle？=?0:?DW？=?1
用什麽？組合1
。AddItem？1:?。AddItem？2:?。AddItem？3:?。AddItem？4:?。AddItem？五
結束？隨著
結束？潛水艇
私人？Sub？CmdCls_Click()
圖片1。Cls
結束？潛水艇
私人？Sub？CmdExit_Click()
卸載？我
結束？潛水艇
私人？Sub？Combo1_Click()
bChangeDrawWidth？=?真實的
結束？潛水艇
私人？Sub？Combo1_Change()
bChangeDrawWidth？=?真實的
結束？潛水艇
私人？Sub？Combo1_KeyPress(KeyAscii？作為？整數)
選擇？案子？凱亞西
案子？8,?13
案子？48?去哪？57
案子？其他
KeyAscii？=?0
結束？挑選
結束？潛水艇
私人？Sub？Combo1_LostFocus()
如果？bChangeDrawWidth？然後呢？bChangeDrawWidth？=?假:？DW？=?Val(Combo1。正文):？圖片1。DrawWidth？=?發展的寬度(Developed Width)
結束？潛水艇
私人？Sub？OptionPenStyle_Click(Index？作為？整數)
如果？OptionPenStyle(索引)。價值？然後
PenStyle？=?索引
選擇？案子？索引
案子？0,?1,?2,?四
圖片1。FillStyle？=?0
案子？3,?五
圖片1。FillStyle？=?1
結束？挑選
結束？如果
結束？潛水艇
私人？Sub？TxtRGB_Change(索引？作為？整數)
bChangeRGB？=?真實的
結束？潛水艇
私人？Sub？TxtRGB_KeyPress(Index？作為？整數，？KeyAscii？作為？整數)
選擇？案子？凱亞西
案子？8,?13
案子？48?去哪？57
案子？其他
KeyAscii？=?0
結束？挑選
結束？潛水艇
私人？Sub？TxtRGB_LostFocus(Index？作為？整數)
如果？bChangeRGB？然後
bChangeRGB？=?假:？c(指數)？=?Val(TxtRGB(Index))
如果？c(指數)？& gt？255?然後呢？c(指數)？=?255:?TxtRGB(索引)？=?"255"
圖片1。前景色？=?RGB(C(0)，？C(1)，？C(2)):？圖片1。FillColor？=?圖片1。前景色
結束？如果
結束？潛水艇
私人？Sub？Picture1_DblClick()
打電話？Picture1_MouseDown(Bn，0,?牛？oY)
結束？潛水艇
私人？Sub？Picture1_MouseDown(按鈕？作為？整數，？移位？作為？整數，？x？作為？單身，？y？作為？單身)
Bn？=?按鈕:？黃牛？=?x:？oY？=?Y
如果？Bn？=?1?然後
如果？PenStyle？=?0?然後
圖片1。自動提款？=?真實的
其他
圖片1。自動提款？=?錯誤的
結束？如果
結束？如果
結束？潛水艇
私人？Sub？picture 1 _ MouseMove(Button？作為？整數，？移位？作為？整數，？x？作為？單身，？y？作為？單身)
如果？按鈕？=?1?然後
選擇？案子？筆法
案子？0
圖片1。線？(黃牛，？oY)-(X，？y)
黃牛？=?x:？oY？=?Y
案子？1
圖片1。恢復精神
圖片1。線？(黃牛，？oY)-(X，？y)
案子？2
圖片1。恢復精神
圖片1。線？(黃牛，？oY)-(X，？y)，？,?男友
案子？三
圖片1。恢復精神
圖片1。線？(黃牛，？oY)-(X，？y)，？,?B
案子？4,?五
圖片1。恢復精神
如果？x？-?黃牛？& lt& gt？0?然後呢？圖片1。圈子？((黃牛？+?x)？/?2,?(oY？+?y)？/?2),?IIf(Abs(oX？-?x)？& gt？Abs(oY？-?y)，？Abs(oX？-?x)，？Abs(oY？-?y))？/?2,?,?,?,?Abs((Y？-?oY)？/?(X？-?oX))
結束？挑選
結束？如果
結束？潛水艇
私人？Sub？Picture1_MouseUp(Button？作為？整數，？移位？作為？整數，？x？作為？單身，？y？作為？單身)
如果？Bn？=?1?然後
圖片1。自動提款？=?真實的
打電話？Picture1_MouseMove(Bn，0,?x，？y)
黃牛？=?x:？oY？=?Y
結束？如果
結束？潛水艇