I neeeeeeed to print this faster

[KingArthur]

I made a maze program and it works very fast without printing but I am very weak in graphic so can you help me a bit?
the code is:

form1.Cls
    For i = 1 To W
        For j = 1 To H
            'inside
            If cells(i, j).isin = True Then
                For z = 0 To 10
                    Line (i * 10 + z, j * 10)-(i * 10 + z, j * 10 + 10), vbRed
                Next
            End If
            If cells(i, j).wasin = True And cells(i, j).isin <> True Then
                For z = 0 To 10
                    Line (i * 10 + z, j * 10)-(i * 10 + z, j * 10 + 10), vbBlue
                Next
            End If
            
            'borders
            If cells(i, j).wall(0) = False Then Line (i * 10, j * 10)-(i * 10 + 10, j * 10), vbWhite
            If cells(i, j).wall(1) = False Then Line (i * 10, j * 10 + 10)-(i * 10 + 10, j * 10 + 10), vbWhite
            If cells(i, j).wall(2) = False Then Line (i * 10 + 10, j * 10)-(i * 10 + 10, j * 10 + 10), vbWhite
            If cells(i, j).wall(3) = False Then Line (i * 10, j * 10)-(i * 10, j * 10 + 10), vbWhite

        Next
    Next