一个很难解决的问题，请高手中的高手解决。

Question

Picture1.Line (0, 100)-(Picture1.Width, 100)画一条线，自己慢慢画把

Answer 1

    Dim intLine As Integer
    Dim I As Integer
    intLine = 10
    With Picture1
        Picture1.ForeColor = QBColor(6)
        For I = 1 To intLine
            Picture1.Line (0, .Height / intLine * I)-(.Width, .Height / intLine * I)
        Next I
        
        For I = 1 To intLine
            Picture1.Line (.Width / intLine * I, 0)-(.Width / intLine * I, .Height)
        Next I
    End WithintLine控制网格密度