在picturebox上画一条线，然后在线上写字，把文字对应的线删掉

‘画一条线
    Me.Picture1.DrawStyle = 0
    Me.Picture1.Line (0, 0)-(10000, 10000)
    Me.Picture1.DrawStyle = 3
    Me.Picture1.Line (0, 0)-(10000, 20000)
    Me.Picture1.DrawStyle = 2
    Me.Picture1.Line (0, 0)-(10000, 30000)
    Me.Picture1.DrawStyle = 0
    Me.Picture1.Line (0, 0)-(10000, 40000)

 '把线用背景色覆盖
Me.Picture1.Line (1000, 1000)-(1000 + Me.Picture1.TextWidth("AAaaaaaa"), 1000 + Me.Picture1.TextHeight("AAaaaaaa")), Me.Picture1.BackColor, BF  

‘设定文字坐标
    Me.Picture1.CurrentX = 1000
    Me.Picture1.CurrentY = 1000

‘显示文字
    Me.Picture1.Print "AAaaaaaa"