pictureBox画线问题

Question

请问我在PictureBox上画线之后，然后在里面话线组成的网格内画点，我想做一个按钮，按一下画出网格，再按一些网格消失，但里面画的点不能消失。

Answer 1

Option Explicit
    Dim i As Integer
Private Sub Command1_Click() '用vbBlue画格
    For i = 1 To 12
        Picture1.Line (500, i * 500)-(12000, i * 500), vbBlue
    Next
    For i = 1 To 24
        Picture1.Line (i * 500, 500)-(i * 500, 6000), vbBlue
    Next
End SubPrivate Sub Command2_Click() '用Picture1的底色清除vbBlue画格
    For i = 1 To 12
        Picture1.Line (500, i * 500)-(12000, i * 500), &H8000000F
    Next
    For i = 1 To 24
        Picture1.Line (i * 500, 500)-(i * 500, 6000), &H8000000F
    Next
End Sub