Tengo este procedimiento dentro de un módulo
--- MODULO --
Public Sub pLostFocus(ByRef elForm As System.Windows.Forms.Form, ByVal mIndex As String)
Dim ack As Boolean
Dim elActivo As Form = Form.ActiveForm
Dim cControlAct As ContainerControl
If elActivo.Name <> elForm.Name Then Exit Sub
CType(elForm.FindForm.Controls(mIndex), TextBox).BackColor = Color.White
CType(elForm.FindForm.Controls(mIndex), TextBox).ForeColor = Color.Black
Select Case UCase(Left(cControlAct.ActiveControl.Name, 5))
Case "CAMPO"
If cControlAct.ActiveControl.TabIndex < CType(elForm.FindForm.Controls(mIndex), TextBox).TabIndex Then Exit Sub
Case "ELULT"
Case Else
Exit Sub
End Select
ack = True
---- esta llamada me da error ---
Call elForm.pVerifcampo("LostFocus", mIndex, ack)
---- ------------------ -------------------------
If ack = False Then
CType(elForm.FindForm.Controls(mIndex), TextBox).Focus()
ElseIf cControlAct.ActiveControl.Name = "ElUltimo" Then
CType(elForm.FindForm.Controls(mIndex), TextBox).Focus()
'Call GPPulsoTecla(turno.Acel(1))
End If
End Sub
--- FORMULARIO
En el Formulario llamado frmClaves tengon un procedimiento publico llamado
Public pVerifcampo(Tipo as string, mIndex as string, ack as boolean)
end sub
Como hago para llamar al procedimiento desde el módulo
Gracias, Luis.
