这就是我最终解决我的问题的方式。特别感谢约翰在正确方向上的推动。

Private BkGrd = resources.GetObject("ToolBarBkGrd2")
    Private Bkgrd1 = resources.GetObject("ToolBarBkGrd3")

        Dim btnBilling As New ToolStripButton
        With btnBilling
            'Set properties
            .BackgroundImage = CType(BkGrd, Drawing.Image)
            .DisplayStyle = ToolStripItemDisplayStyle.ImageAndText
            .TextImageRelation = TextImageRelation.ImageBeforeText
            .Image = My.Resources.Billing
            .Font = New Font("Calibri", 8.25, FontStyle.Bold)
            .Text = "Billing" & vbNewLine & "Info"
        End With

        'Create handle for MouseEnter Event
        AddHandler btnBilling.MouseEnter, AddressOf BtnBilling_MouseEnter
        'Create handle for MouseLeave Event
        AddHandler btnBilling.MouseLeave, AddressOf BtnBilling_MouseLeave
        'Create a Handle to a Click Event
        AddHandler btnBilling.Click, AddressOf BtnBilling_Click

    'Billing Button Events
    Private Sub BtnBilling_MouseEnter(sender As Object, e As EventArgs)
        With sender
            'Set properties
            .BackgroundImage = CType(BkGrd1, Drawing.Image)
        End With
    End Sub

    Private Sub BtnBilling_MouseLeave(sender As Object, e As EventArgs)
        With sender
            'Set properties
            .BackgroundImage = CType(BkGrd, Drawing.Image)
        End With
    End Sub

    Private Sub BtnBilling_Click(sender As Object, e As EventArgs)
        Bill()
    End Sub

Public Sub Bill()
    If ActiveMdiChild IsNot Nothing Then ActiveMdiChild.Close()

    Billing.MdiParent = Me
    Billing.Show()
End Sub