09/08/2006, 10:40
|
 | | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 17 años, 9 meses Puntos: 2 | |
| utiliza esta funcion
public function FormularioActivo(NmbFormulario as String) as Boolean
Dim Formulario As Form
For Each Formulario In Forms
If (UCase(Formulario.Name) = UCase(NmbFormulario)) Then
FormularioActivo = true
Exit For
End If
Next
end Function |