te doy un ejemplo:
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
StatusBar1.Panels(0).Text = "Seleccione opción"
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
Dim FormularioClientes As New FrmMenuClientes
FormularioClientes.MdiParent = Me
FormularioClientes.Show()
Case 1
Dim FormularioProveedores As New FrmMenuProveedores
FormularioProveedores.MdiParent = Me
FormularioProveedores.Show()
Case 2
StatusBar1.Panels(0).Text = "Representantes"
Dim Formulario As New FrmMenuRepresentantes
Formulario.MdiParent = Me
Formulario.Show()
Case 3
StatusBar1.Panels(0).Text = ("Artículos")
Dim Formulario As New FrmMenuArticulos
Formulario.MdiParent = Me
Formulario.Show()
Case 10
StatusBar1.Panels(0).Text = "Salir"
Me.Close()
End Select
supongo que con esto te vale
