Asi invoco al form:
Código:
En el form:Dim frmAdmTipo As frmAdmTipo = frmAdmTipo.Instance frmAdmTipo.MdiParent = Me frmAdmTipo.Show()
Código:
No se como ahora enviarle los parametros tabla y tipo.Public Class frmAdmTipo
Public _Tipo As String = Nothing
Public _Tabla As String = Nothing
Public _CodigoTipo As Integer = Nothing
'Variable pública.
Private Shared ChildInstance As frmAdmTipo = Nothing
'controla que sólo exista una instancia del formulario.
Public Shared Function Instance() As frmAdmTipo
If ChildInstance Is Nothing OrElse ChildInstance.IsDisposed = True Then
ChildInstance = New frmAdmTipo
End If
ChildInstance.BringToFront()
Return ChildInstance
End Function
Public Sub New(Optional ByVal Tipo As String = Nothing, Optional ByVal Tabla As String = Nothing)
InitializeComponent()
_Tipo = Tipo
_Tabla = Tabla
Me.Text = " Administración - " & _Tipo
Me.dgvTipo.Columns.Item(1).HeaderText = _Tipo
End Sub
Alguna sugerencia por favor, gracias.


