PrivateSubCommand3_Click()
Picture1.DrawWidth=2
Picture1.Line(2,2)-(145,115),,B
Picture1.Line(105,105)-(145,115),,B
Picture1.DrawWidth=1
Picture1.Line(105,110)-(145,110)
Picture1.Line(125,105)-(125,115)
Picture1.Line(105,112.5)-(125,112.5)
Picture1.Line(125,107.5)-
