Private Sub Command1_Click()
Dim i%
i = 0
  For x = 100 To 4900 Step 150
    If i < 5 Then
    Picture1.Line (x, 100)-(x, 4900)
    Else
    Picture1.Line (x, 100)-(x, 5000)
    End If
    i = i + 1
    If i = 6 Then i = 1
  Next
    i = 0
  For y = 100 To 4900 Step 150
    If i < 5 Then
     Picture1.Line (100, y)-(4900, y)
    Else
     Picture1.Line (100, y)-(5000, y)
    End If
    i = i + 1
    If i = 6 Then i = 1
  Next
  flag = True
End Sub