Как передать данные из процедуры в Форме1 в процедуру в Форму2

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label9.Text = Form1.Location_Top
Label11.Text = Form1.Location_Left  
End Sub

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
Dim Location_Top, Location_Left As Integer
Location_Top = e.X
Location_Left = e.Y
Me.Visible = True
Form2.Show()
End If
End Sub

Public Location_Top, Location_Left As Integer
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Location_Top = e.X
        Location_Left = e.Y
        Me.Visible = True
        Form2.Show()
    End Sub

Public Class Form1
    Public Location_Top As Integer
    Public Location_Left As Integer
 
    Dim DataMatrix As DataTable ' тут мы и будем хранить данные из файла и работать с ними. Отсюда же и сохранять будем изменения в файл
    Dim Sourcefile As String = "D:\проги\AlarmLog.csv" ' путь к файлу
    Dim cellseparator() As Char = {vbTab} ' разделитель данных в строках
   
 
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
 
 
    'при нажатии на кнопку миши дает ее координаты
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Dim Location_Top, Location_Left As Integer
 
 
        Location_Top = e.X
        Location_Left = e.Y
        MsgBox(e.X & " X " & e.Y)
        Me.Visible = True
        Form2.Show()
        End Sub
 
    Private Sub AddAlarmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddAlarmToolStripMenuItem.Click
 
        Me.Visible = True
        Form2.Show()
 
    End Sub
 
    
    Private Sub BTSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTSToolStripMenuItem.Click
        Me.Visible = True
        Form5.Show()
    End Sub
  
   
End Class

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label9.Text = Forma1.Location_Top
        Label11.Text = Form1.Location_Left
    End Sub

Friend Shared pos_x, pos_y as integer

textbox1.text = form2.pos_x
textbox2.text = form2.pos_y

'при нажатии на кнопку мыши дает ее координаты
Private Sub Form1_MouseDown(ByVal sender As Object, _
     ByVal e As System.Windows.Forms.MouseEventArgs) _
     Handles MyBase.MouseDown
     Form2. Label9. text = e.X
     Form2. Label10. text = e.Y
     MsgBox(e.X & " X " & e.Y)
     Form2.Show()
End Sub