I did this project, but it wont work..any thing wrong in my code..could any one check for me..urgent Plz..

my project:
1 text box
1 listview
1 button

Private Sub btnCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCmd.Click
Dim Size, I, J, II, JJ, count As Short

Size = txtSize.Text
Dim Magic(Size, Size) As Short

I = 0
J = Size / 2
Magic(I, J) = 1
For count = 1 To (Size ^ 2)
II = I
JJ = J
I = I - 1
If (I < 0) Then
I = Size - 1
End If
J = J - 1
If (J < 0) Then
J = Size - 1
End If
If (Magic(I, J) > 0) Then
I = (II + 1)
If (I > (Size - 1)) Then
I = 0
End If
End If
count += 1
Magic(I, J) = count
Next

lvwDisplay.View = View.Details
Dim col As New ListView.ColumnHeaderCollection(lvwDisplay)
col.Clear()
J = 0
For I = 0 To (Size - 1)
col.Add("", 20, HorizontalAlignment.Right)
Next
Dim Row As ListViewItem
For I = 0 To (Size - 1)
Row = lvwDisplay.Items.Add(Magic(I, J))
For J = 1 To (Size - 1)
Row.SubItems.Add(Magic(I, J))
Next
Next




End Sub
Plz..help.