Lamento indicar que a mí no me funciona. Es obvio que algo se me escapa... algo tengo mal y no sé que es. He puesto el mismo código que a ti te funciona.
Lo paso a ver, aunque no creo que sea problema de código.
Public Class MENU
' Private m_frm As FTRANSF = New FTRANSF()
' Private m_frm As FCLIEN = New FCLIEN()
' Private m_frm As FACREE = New FACREE()
'Private m_frm As FALBA = New FALBA()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub CLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CLIENTES.Click
FTRANSF.Show() ' clientes_load()
End Sub
Private Sub ACREEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ACREEDORES.Click
'acreedores_load
End Sub
Private Sub ALBARANES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ALBARANES.Click
'albaranes_load
End Sub
Private Sub CAJA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJA.Click
'caja_load
End Sub
Private Sub CAJAP_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAJAP.Click
' cajap_load
End Sub
Private Sub CARGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CARGOS.Click
' cargos_LOAD
End Sub
Private Sub CHEQUES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CHEQUES.Click
' cheques_load
End Sub
Private Sub CODIGOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CODIGOS.Click
' codigosc_load
End Sub
Private Sub DESTINOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DESTINOS.Click
' destinos_load
End Sub
Private Sub DIVISAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DIVISAS.Click
' divisas_load
End Sub
Private Sub ENTIDADES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ENTIDADES.Click
' entidades load
End Sub
'linea 50
Private Sub FACTURAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURAS.Click
'facturas_load
End Sub
Private Sub FACTURASV_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FACTURASV.Click
'facturasv_load
End Sub
Private Sub GESTIONC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONC.Click
' gestionc_load
End Sub
Private Sub GESTIONCC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GESTIONCC.Click
' gestioncc_load
End Sub
Private Sub INGRESOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INGRESOS.Click
' ingresos_load
End Sub
Private Sub PEDIDOSCLIENTES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PEDIDOSCLIENTES.Click
' pedidos_load
End Sub
Private Sub PROVEEDORES_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PROVEEDORES.Click
' proveedores_load
End Sub
Private Sub RECIBOS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RECIBOS.Click
' recibos_load
End Sub
Private Sub SALIRToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SALIR.Click
MyBase.Finalize()
End Sub
' Protected Overrides Sub Finalize()
' MyBase.Finalize()
'End Sub
Private Sub TIVA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TIVA.Click
' tiva_load
MsgBox("HOLA")
End Sub
Private Sub TRANSFERENCIAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSFERENCIAS.Click
' m_frm.Show()
'FTRANSF.Show()
End Sub
Private Sub TRANSPORTISTAS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TRANSPORTISTAS.Click
'transportistas_load
End Sub
Private Sub VALIDARF_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles VALIDARF.Click
'validad_load
End Sub
Private Sub COBROS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COBROS.Click
MsgBox("COBROS")
End Sub
End Class
Option Explicit On
Option Strict On
Imports System
Imports System.Object
Imports System.Data
Imports System.String
Imports Microsoft
Imports Microsoft.VisualBasic
Module Module1
Public mfrm As MENU = New MENU()
Sub Main()
mfrm.Show()
End Sub
End Module