错误BC30456“表单”不是“ Windows”的成员

Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    With OpenFileDialog1
        .FileName = String.Empty
        .InitialDirectory = "C:\"
        .Title = "Open Excel File"
        .Filter = "Excel 97-2003|*.xls|Excel 2007|*.xlsx"
    End With
    Dim result As DialogResult = OpenFileDialog1.ShowDialog()
    If result = Windows.Form.DialogResult.OK Then
        Try
            TextBox1.Text = OpenFileDialog1.FileName
            GetExcelSheetNames(TextBox1.Text)
        Catch ex As Exception
            MsgBox("Error : " & ex.Message)
        End Try
    End If

End Sub

Answer 1

Public Class Form1
    Private loginLabel As String

    Public Sub New(ByVal loginParameter As String)
         InitializeComponent()

         Me.loginLabel = loginParameter

    End Sub
End Class

and in your login form:

dim frm as new Form1(label.Text)