Dim i As Integer, j As Integer, di As Integer, dj As Integer, value As Integer
n = InputBox("n=")
Picture1.Scale (0, 0)-(n + 1, n + 1)
Picture1.Cls
ReDim x(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
If (i > 1 And i < n + 2 And j > 1 And j <= n + 1) Then     
i + di, j + dj, di, dj, value + 1
Else
If (value <= n * n) Then
If (di = 1 And dj = 0) Then  i - 1, j - 1, 0, -1
If (di = 0 And dj = 1) Then  i + 1, j - 1, 1, 0
If (di = -1 And dj = 0) Then  i + 1, j + 1, 0, 1
If (di = 0 And dj = -1) Then  i - 1, j + 1, -1, 0
?????