Create ToolBar Buttons

[Tengkorak]

I want to create a toolbar button, which controls toolbar is on MDIForm and I make a function in the Module.
My code like this:

Sub AddToolbarButtons()
        'MDI Main form
        Dim fMain As MDIMain
 
        'create toolbar buttons
        With fMain.TBar
            .Buttons.Clear()
            .Buttons.Add(setButton("Add", 1))
            .Buttons.Add(setButton("Modify", 2))
            .Buttons.Add(setButton("Delete", 3))
            .Buttons.Add(setButton("Preview", 4))
            .Buttons.Add(setButton("Refresh", 5))
            .Buttons.Add(setButton("Close", 6))
        End With
 
Function setButton(ByVal txt, ByVal imgIdx) As ToolBarButton
        Dim btn As New ToolBarButton
        btn.Text = txt
        btn.ImageIndex = imgIdx
        Return btn
    End Function

and I get an error message like this:

An unhandled exception of type 'System.NullReferenceException' occurred in POSClient.exe

Additional information: Object reference not set to an instance of an object.

at

'create toolbar buttons
        With fMain.TBar

what's the solution ?

thank you

[JuggaloBrotha]

Sounds like fMain.TBar isn't set to an instance of an object, do you set it to a new object anywhere? Cause I don't see you doing that in your code. You dim fMain as MDIMain but you don't set it to a new instance let alone set it's TBar to a new instance.

Are you trying to add those tool bar buttons to an existing form? If so, you should probably pass it the reference to the existing form rather than trying to make a 2nd one.