vb.net - 组合框值未传递给下一个表单（这是一个模块），保持为空

Question

Form1 让用户从组合框中选择一个值，然后他们单击下一步按钮转到 StatusModule。我希望从 Form1 中选择的项目用于模块中的 If/else 语句以创建客户端并返回结果。目前，在我的断点下，除了值没有从 Welcome 传递到 StatusModule 之外，一切正常。

表格1：

Public Class Welcome
Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click

If AdapterSelection.Text = "USB" Or AdapterSelection.Text = "USBC" Or AdapterSelection.Text = "HDMI" Then
            If ELocation.Text = String.Empty Then
                EValidFalg = False
                MessageBox.Show("Select an E file.")
                ELocation.Text = "Select E"
            Else
                Me.Hide()
                Form2.Show()
            End If
        Else
            DValidFlag = False
            MessageBox.Show("Select D")
        End If
End Sub

Private Sub AdapterSelection_SelectedIndexChanged(sender As Object, e As EventArgs) Handles AdapterSelection.SelectedIndexChanged
        If AdapterSelection.Items(0) <> "" Then
        Else
            AdapterSelection.Items.Add("USB")
            AdapterSelection.Items.Add("USBC")
            AdapterSelection.Items.Add("HDMI")
        End If
    End Sub

End Class

模块：

Module StatusM
Function Start()
 client = CreateObject("E File")
        If Err.Number <> 0 Then
            'Display some error information
            Screen.Display.Text = "ERROR: Fail to create client"
        Else
            Debug.Print("Completed")
            Debug.Print(Welcome.AdapterSelection.Text) 'NOT SHOWING ANY VALUE

            If Welcome.AdapterSelection.Text = "USB" Then
                "My Code"
            ElseIf Welcome.AdapterSelection.Text = "USBC" Then
                 "MyCode"
            ElseIf Welcome.AdapterSelection.Text = "USBC" Then
            End If
End Function
End Module

标签： vb.netcombobox