VB.Net 将值传递给另一种形式

我想知道如何将值从 form1 传递到另一个表单的公共子。 问题是它说“在这种情况下无法访问，因为它是‘私人’”。

我尝试将 Form 1 Private Sub 更改为 Public Sub，但仍然存在相同的错误。我应该如何让它发挥作用？

Public Class Form1
Dim test(), text1 As String
Const asd = "abcabc"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    text1 = Space(LOF(1))
    test = Split(text1, asd)
    HOST = test(1)
End Sub

我想将 HOST = test(1) 值传递给另一个表单

Public Class Form2

Public Sub Check()
    'get the value to here
End Sub

您可以将其作为参数传递：

Public Sub Check(valueToCheck as String)
   'get the value to here
End Sub

或者创建一个属性form2接收它：

private _HostOrSomething As String = ""
Friend Property HostOrSomething As String
   Get
        Return _HostOrSomething 
    End Get
    Set(ByVal value As String)
        _HostOrSomething = value
    End Set

在这种情况下，Sub Check 可以使用 _HostOrSomething，因为它是本地变量。要使用这些：

HOST = Test(1)
frm2.Check(HOST)

or

HOST = Test(1)
frm2.HostOrSomething = HOST
frm2.Check