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)-