how to use a button handler and move a button in an array

[cmoffitt2000]

i have this code that i have been trying to make it so i could move the buttons in the array( the locations of the buttons) but i am not able to move the buttons like i am if i just have a normal button
Code:

Public Class Form1
    Dim point As New System.Drawing.Point
    Dim X, Y As Integer
    Dim buttons(3, 3) As Button
    Dim times As Integer = 0
    Structure matching
        Dim question As String
        Dim answers() As String
 
        Dim correctAswr As Integer
    End Structure
    Dim match(11) As matching
 
 
 
    Dim gridSize As Integer = 3
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
    End Sub
 
    'Private Sub Button1_MouseClick(sender As Object, e As MouseEventArgs) Handles Button1.MouseClick
    '    X = Control.MousePosition.X - Button1.Location.X
    '    Y = Control.MousePosition.Y - Button1.Location.Y
    'End Sub
 
    'Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
 
    'End Sub
 
    'Private Sub Button1_MouseMove(sender As Object, e As MouseEventArgs) Handles Button1.MouseMove
    '    If e.Button = Windows.Forms.MouseButtons.Right Then
    '        ContextMenuStrip = Nothing
 
    '        point = Control.MousePosition
    '        point.X = point.X + (X)
    '        point.Y = point.Y + (Y)
    '        Button1.Location = point
 
    '    End If
 
    'End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim buffer As Integer = 0
        Dim buttonSize As Integer = 87.45
        For i = 0 To gridSize - 1 'makes the button
            For j = 0 To gridSize - 1
                buttons(i, j) = New Button
                buttons(i, j).Left = buffer + (buffer + buttonSize) * j
                buttons(i, j).Top = buffer + (buffer + buttonSize) * i
                buttons(i, j).Height = buttonSize
                buttons(i, j).Width = buttonSize
                buttons(i, j).Tag = i & times & j
                times = times + 1
                buttons(i, j).Text = "$ " '& Clues(j).money
                Me.Controls.Add(buttons(i, j))
                AddHandler buttons(i, j).Click, AddressOf buttonclick
                AddHandler buttons(i, j).Click, AddressOf Button_Mouseclick
                AddHandler buttons(i, j).Click, AddressOf Button_MouseMove
            Next
        Next
    End Sub
 
 
    Sub buttonclick(sender As Button, e As EventArgs)
 
        Dim row As Integer = Integer.Parse(sender.Tag.ToString.Chars(0))
        Dim column As Integer = Integer.Parse(sender.Tag.ToString.Chars(2))
 
    End Sub
 
 
    Sub Button_Mouseclick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
 
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub
 
    Private Sub Button_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ContextMenuStrip = Nothing
 
            point = Control.MousePosition
            point.X = point.X + (X)
            point.Y = point.Y + (Y)
            Me.Location = point
 
        End If
    End Sub
End Class