g.DrawLine(Pens.black,0,40,100,0)
g.DrawLine(Pens.black,0,40,100,70)
g.DrawLine(Pens.black,200,40,100,0)
g.DrawLine(Pens.black,200,40,100,70)
Dim fnt As New Font("宋体",10)
Dim msg As String = dr("條款備註1")
g.DrawString(msg,fnt,Brushes.black,75,40)
p.Repaint()
p.Save(ProjectPath & "Images\\myimg.jpg")