جدول جادويي!!!!

سلام به همه.
سجاد جان شما که مشکلتون حل شد ولی برای بقیه بچه این کد رو میگذارم. با اجازه:

کد:

---

Private Sub Form_Load()
    Dim b As Integer
    Dim x() As Integer
    b = InputBox("Enter Table Bound :")
    ReDim x(b, b) As Integer
    Dim i, j, Number
    i = Fix(b / 2) + 1
    j = Fix(b / 2) + 1
    Number = 1
    Do
        x(i, j) = Number
        Number = Number + 1
        i = i - 1
        j = j + 1
        If i <= 0 Then i = b
        If j > b Then j = 1
        If x(i, j) <> 0 Then
            i = i - 1
            If i <= 0 Then i = b
        End If
    Loop Until Number = (b * b) + 1
   
 
    For i = 1 To b
        For j = 1 To b
            Print x(i, j),
        Next j
        Print
    Next i
End Sub

---