La prostitucion

¿QUÉ ES MDI?
Visual Basic permite crear aplicaciones empleando una interfaz de múltiples documentos (MDI - Multiple Document Interface), o dicho en términos de Visual Basic, múltiples formularios. En una aplicación MDI, se pueden abrir varias ventanas hijas. Cada una de estas ventanas hijas (formularios) son iguales entre sí. En una aplicación MDI pueden haber varias ventanas hijas, pero solouna ventana padre por aplicación. El formulario padre actúa como contenedor de los formulario hijo. Muchos procesadores de textos bajo Windows son buenos ejemplos de aplicaciones MDI.
Para crear una aplicación MDI se empezará a crear un nuevo proyecto y, se accede a Insert/MDI Form. El nuevo formulario será el formulario padre. Para que un formulario sea un formulario hijo, se deberá cambiar supropiedadMDIChild y establecerla a True.
Cuando se visualizan varios formulario hijos, todos comparten el mismo código, pero cada uno de ellos guarda sus propios datos y reconoce sus propios sucesos. Según ésto, no se podrá utilizar el identificador del formulario para referirse a los controles o a sus propiedades, aunque sí se podrá utilizar la palabra clave Me.
SPLASH

Texto planoImprimir1. Option Explicit  
2.   
3. Private Sub Main()  
4.     
5.   'Carga y visualiza el Splash  
6.   frm_Splash.Show  
7.     
8.   ' Carga en memoria el formulario principal _  
9.     pero no lo muestra  
10.   Load Frm_Principal  
11.     
12.   'Hasta que no se cumpla el tiempo no prosigue  
13.   Do  
14.     DoEvents  
15.  Loop Until frm_Splash.Listo  
16.     
17.     
18.   ' Visualiza el Form Principal y descarga el Splash  
19.   Frm_Principal.Show  
20.     
21.   Unload frm_Splash  
22.   Set frm_Splash = Nothing  
23.   
24. End Sub  
 
Ahora al formulario splash colocarle la propiedad StartUpPosition con el valor CenterScreen y quitarle los bordes en la propiedad BorderStyle
Pegar lassiguientes líneas en el formulario de presentación:
 
Código fuente:
Texto planoImprimir
1. Option Explicit  
2.   
3.   
4. 'Variable tipo Flag que indica cuando se cumplíó el _  
5.  tiempo para descargar la pantalla de presentación  
6. Public Listo As Boolean  
7.   
8. 'Valor en segundos para la duración de del Splash  
9.Private Const DURACION As Long = 3  
10.   
11. Private Sub Form_Load()  
12.     
13.   Dim El_Tiempo As Long  
14.     
15.   Me.Show  
16.     
17.   'Almacena el punto de partida para hacer _  
18.    el retardo en segundos  
19.   El_Tiempo = Timer + DURACION  
20.     
21.   ' ...Hasta que no se cumpla el tiempo realiza el retardo  
22.   Do While Timer < El_Tiempo  
23.     DoEvents  
24.   Loop  
25.     
26.   ' Pone el Flag en True para descargar este form desde el _  
27.    módulo ( Procedimiento Sub Main)  
28.   Listo = True  
29.     
30. End Sub  
 
Por último ir al menú proyecto > Propiedades y en la opción Objeto Inicial seleccionar la rutina Sub Main
SPLASH
Muestra un mensaje en un cuadro de diálogo, espera a queel usuario haga clic en un botón y devuelve un entero que indica el botón utilizado.
 Introducción.
Visual Basic es uno de los tantos lenguajes de programación que podemos encontrar hoy en día. Dicho lenguaje nace del BASIC (Beginner´s All-purpose Symbolic Instruction Code) que fue creado en su versión original en el Dartmouth College, con el propósito de servir a aquellas personas que estabaninteresadas en iniciarse en algún lenguaje de programación. Luego de sufrir varias modificaciones, en el año 1978 se estableció el BASIC estándar. La sencillez del lenguaje ganó el desprecio de los programadores avanzados por considerarlo "un lenguaje para principiantes".
Primero fue GW-BASIC, luego se transformó en QuickBASIC y actualmente se lo conoce como Visual Basic y la versión...