Magic Square VB.net

Public Class Form1
    Private Sub label1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim u As Integer
        Dim v As Integer
        Dim w As Integer
        Dim x As Integer
        Dim y As Integer
        Dim counter As Integer = 1
        Randomize()
        If TextBox1.Text = 5 Then
            For i As Integer = 1 To CInt(TextBox1.Text)
                For j As Integer = 1 To CInt(TextBox1.Text)
                    Dim newlabel As New Label
                    If i = 1 And j = 1 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        u = newlabel.Text
                    ElseIf i = 1 And j = 2 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        v = newlabel.Text
                    ElseIf i = 1 And j = 3 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        w = newlabel.Text
                    ElseIf i = 1 And j = 4 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        x = newlabel.Text
                    ElseIf i = 1 And j = 5 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        y = newlabel.Text
                    ElseIf i = 2 And j = 1 Then
                        newlabel.Text = x - 3
                    ElseIf i = 2 And j = 2 Then
                        newlabel.Text = w + 3
                    ElseIf i = 2 And j = 3 Then
                        newlabel.Text = v - 1
                    ElseIf i = 2 And j = 4 Then
                        newlabel.Text = u + 1
                    ElseIf i = 2 And j = 5 Then
                        newlabel.Text = y + 3
                    ElseIf i = 3 And j = 1 Then
                        newlabel.Text = v + 1
                    ElseIf i = 3 And j = 2 Then
                        newlabel.Text = u - 1
                    ElseIf i = 3 And j = 3 Then
                        newlabel.Text = x - 1
                    ElseIf i = 3 And j = 4 Then
                        newlabel.Text = w + 1
                    ElseIf i = 3 And j = 5 Then
                        newlabel.Text = y + 2
                    ElseIf i = 4 And j = 1 Then
                        newlabel.Text = w + 2
                    ElseIf i = 4 And j = 2 Then
                        newlabel.Text = x - 2
                    ElseIf i = 4 And j = 3 Then
                        newlabel.Text = u + 2
                    ElseIf i = 4 And j = 4 Then
                        newlabel.Text = v - 2
                    ElseIf i = 4 And j = 5 Then
                        newlabel.Text = y - 2
                    End If
                    newlabel.Width = 30
                    newlabel.Height = 30
                    newlabel.Left = (j - 1) * 40 + 25
                    newlabel.Top = (i - 1) * 40 + 125
                    Me.Controls.Add(newlabel)
                Next
            Next
        End If
    End Sub
End Class