Private Sub mDraw1()
 
    For nY = 0 To 99
 
        For nX = 0 To 99
 
            Me.Picture1.Line (nX * 10, nY * 10)-(nX * 10 + 10, nY * 10 + 10), _
              vbWhite, B
 
        Next
 
    Next
 
End Sub

Private Declare Function Rectangle Lib "gdi32" ( _
  ByVal hDC As Long, _
  ByVal X1 As Long, _
  ByVal Y1 As Long, _
  ByVal X2 As Long, _
  ByVal Y2 As Long) As Long
 
Private Sub mDraw2()
 
    For nY = 0 To 99
 
        For nX = 0 To 99
 
            Rectangle Me.Picture2.hDC, nX * 10, nY * 10, nX * 10 + 10, nY * 10 _
              + 10
 
        Next
 
    Next
 
End Sub