Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
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