How to use data from one form to others

[John Wall]

I'm trying to use this variable called Group that's created in my Login form to use in other form:

Public Class Login
 
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Dim conn As New SqlClient.SqlConnection
        Dim command As New SqlClient.SqlCommand
        Dim adaptor As New SqlClient.SqlDataAdapter
        Dim dataset As New DataSet
        Dim Group As String
        Dim count As Integer
        Dim frm As SwitchBoard
 
If count > 0 Then
            Me.Hide()
 
            Group = dataset.Tables(0).Rows(0).Item("Usergroup")
            frm = New SwitchBoard(Group)
            frm.Show()
        Else
            MsgBox("Wrong username or password")
        End If
 

I managed to pass it to my switchboard form:

Public Class SwitchBoard
 
    Public Group As String
 
    Public Sub New(ByVal theGroup As String)
        InitializeComponent()
 
        Group = theGroup
    End Sub
 
    Private Sub btnCust_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCust.Click
        'Dim frm As CustomerForm = New CustomerForm()
 
        'frm.Show()
        CustomerForm.Show()
    End Sub

to use as this:

Private Sub SwitchBoard_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StatusStrip1.Items.Add("Logged in as: " + Group)
 
        If Group = "user" Then
            btnCreate.Enabled = False
        End If
    End Sub

and I tried typing the same thing in another form called CustomerForm:

Public Class CustomerForm
    Private theBinding As BindingSource
    Private objCustomer As CustomerTier
 
    Public Group As String
 
    Public Sub New(ByVal theGroup As String)
        InitializeComponent()
 
        Group = theGroup
    End Sub

and I get an error in my switchboard form where it says "CustomerForm.Show()" saying "reference to a non-shared member requires an object reference:

Private Sub btnCust_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCust.Click
        'Dim frm As CustomerForm = New CustomerForm()
 
        'frm.Show()
        CustomerForm.Show()
    End Sub

[David Gluth]

Within a class a public object (variable, function sub whatever) needs to be instantiated (in VB this means created with NEW.

It looks like you tried this but forgot that you overrode the NEW sub to have a parameter (Group)

Instantiate the class

Private Sub btnCust_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCust.Click
    ''Dim frm As CustomerForm = New CustomerForm() 
 
    ''frm.Show() 
    'CustomerForm.Show()
 
    Dim frm As New CustomerForm(Group)
    frm.show()
 
End Sub
 

OR

Private Sub btCust_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCust.Click
        Dim frm As CustomerForm = New CustomerForm(Group)
 
        frm.Show()
 
    End Sub