SoloCodigo

No. Te aclaro...

Talcomo lo tienes hecho, no podrás nunca llamarlo, porque estás creando instancias de la clase que implementa la clase abstracta (Interfaz)..., tal como indicas en el código:

Private laClase as Interfaz
laClase = new Abstracta

Si 'laclase' es una instancia de la clase  'Interfaz' sólo podrá invocar los métodos que pertenecen a dicha clase, además no admitirá que le asignes la clase 'abstracta', porque es de otro tipo.
Lo más parecido a lo que quieres que puedes hacer sería esto:

Pero desde la clase sólo puedes llamar a los métodos definidos en su clase y a los métodos definidos de las clases que anida.
Para entender esto lo mejor es compararlos con cajas, imagina que la clase interfaz es una bola de cristal e imagina que la clase abstracta es una caja, metemos la bola en la caja... ahora creamos la clase hereda, sería parecido a meter una copia de la clase abstracta dentro de la clase hereda... pués bien al declarar un clase sólo podrá invocarse los métodos que hay dentro de la caja y a los métodos que hay dentro de las cajas que están dentro de la caja. Así una instancia de interfaz, sólo podrá invocar métodos de otra clase interfaz de ninguna otra. La clase abstracta podrá invocar métodos de la clase abstracta yde la interfaz, de ninfuna otra. La clase hereda sólo podrá invocar los métodos de su propia clase y de la clase abstracta y la clase interfaz. si has creado una nueva clase que hereda de abstracta (hereda2) la clase hereda 'no ve' los métodos específicos de esta clase hereda2.

De hecho:
*  una interfaz se crea precisamente para eso, para compartir métodos (etc..) se llaman igual, pero que luego cada uno hace una cosa distinta, en cambio...
* la herencia lo que permite es compartir métodos (etc...) que hacen exactamente lo mismo. La herencia se hace para que una clase amplía lo que realiza la clase heredada.
* Una instancia es una copia idéntica de la clase de la que se instancia y se diferencia de otra instancia sólo en los datos que en un momento dado pueda tener cada una.

p.d.: como ya hace tiempo que pusiste el mensaje lo dejo aquí, pero si necesitas más aclaraciones...

Es relativamente fácil.
Primero intentaré explicártelo a las claras y luego pasamos a código.

imagina que vas a la tienda de un artesano, quieres una estatua, para colocarla en tu casa, el artesano tiene varios modelos de estatuas, las hay grandes y pequeñas las hay apoyadas sobreel suelo, colgadas de la pared y colgadas del techo...

Entonces a la hora de elegir que estatua te vas a llevar es obvio que en tu casa deberás disponer de un alojamiento para ella, tal alojamiento debe ser exactamente del tipo que la estatua que elijas. supongamos que eliges una estatua que cuelga del techo, pongamos que estas estatuas miden 4 metros y por debajo de ellas hay un espacio libre de 3 metros, es decir necesita 7 metros de altura aproximadamente si tu casa no tiene esa altura hay que descartar esa estatua yelegir otra, no obstante este caso se sale del propósito del ejemplo, mejor diremos que si tu casa no cumple la altura, el garaje (separado de la casa) lo acondicionarás para que pueda cumplir dicho propósito. Supongamos ahora que eliges la estatua de suelo, esta estatua tiene laparticularidad de que ocupa un espacio de 4x4 metros, lo que quiere decir que la estancia debe disponer de esas medidas y una cantidad adicional para poder rodearla, no hay problema, podemos ensanchar nuestro garaje como prefiramos...

Bien, esto mismo es lo que se debe hacer en programación. La tienda de estatuas es en tu caso la base de datos, y el formulario donde quieres mostrarlo hace las veces del garage. Los datos que tomas de la base de datos tienen unas especificaciones, esas mismas especificaciones tiene que tenerlas el formulario que lo va a recibir...

En el formulario que busca:

Recibir el nº de cédula a buscar
buscar en la BD el elemento deseado y recibir los datos asociados
Si no se encuentra nada mostrar mensaje no hay coincidencias
Si se encuentra, enviar resultado al formulario de exhibiiiiición de resultados
En la práctica esos 2 condicionales pueden ser una misma línea de código.

En un módulo:

Cuando busquemos en la base de datos, el resultado lo pasamos a Persona, acto seguido llamamos al formulario de exhibición

Como puedes ver nuestro formulario de exiihibición, está 'acondicionado', como haríamos con el garaje, para recibir el tipo de datos que va a utilizar, puesto que nuestra 'estatua' es un tipo personas, nuestro garaje debe estar capacitado para las especificaciones de loque va a alojar. Nada impide que el formulario acoja varios y diferentes tipos del mismo modo que nada impide que en el garaje pongas más de 1 estatua. en este caso cuando se abra la puerta del garaje, quizás lo que queramos es mostrar exactamente una estatua y no otra, en concreto, end dicho caso debemos proveer otra variable que especifique que estatua queremos mostrar (las demás quedarían oculatas, sin usar)

En el código esto implica añadir una variable en el módulo (o en el formulario de exhibición)...
Ahora entonces cuando vaya a leer un dato sobre personas pondré en el formulario que hace la búsqueda

Y en el formulario de exhibición habrá que distinguir que 'estatua' recibimos...

Para terminar también te indico que si tienes que hacer bastante trabajo al respecto sería mejor que crearas unas clases, con los tipos de datos y que en ella incluyeras los métodos que fueras a necesitar, incluso si los tipos de datos fueran comunes entre ellos utilizar una interfaz que implemente cada clase.

En fin como puedes ver, no puedes presentarte en casa con una estatua de 7 metros. Primero tienes que tener acondicionado el garaje para acoger lo que vas a colocar allí, en el presente caso son unos textbox, y el código para operar sobre ellos... los textbox reciben la 'estatua' (tipo de datos persona) que ya sabe como encajarla en el garaje.

p.d.: queda claro que si los textbox están vacíos es porque no ha encontrado nada relevante al número de cédula, queda a tu elección en dicho caso si mostrar el formulario o enviar un msgbox al caso. También podrías modificar el caption del formulario, para que indicara un texto parecido a : " Resultados para la búsqueda: 'número de cédula' (si los textos están vacíos no se encontraron coincidencias)".

Filtrar una lista de modo que sólo quede una copia de cada elemento sin repetición... (este o algo parecido es la idea que debería ser el título del mensaje).

Sea una lista de elementos (en el ejemplo consideramos números y más concretamente usaremos byte), dicha lista contiene una cantidad arbitraria de elementos, se desea obtener una lista que incluya única copia de cada eleemnto.

Para crear elcódigo y una demostración visual, vamos a necesitar 2 listbox y 2 botones.
* El lis1 contendrá un volcado con la lista de elementos original,
* El lis2 tendrá un volcado cion la lista de elementos ya filtrados.
* El btn1 crea una lista de elementos aleatoria (nos aseguramos que existan repetidos) y presenta la listas en lis1
* El btn2 lama a la función que filtra la lista y presenta el resultado en el lis2

Código previo:

Código del boton 1:
* El btn1 crea una lista de elementos aleatoria (nos aseguramos que existan repetidos) y presenta la listas en lis1
Debe notarse que el generador aleatorio, porporciona realmente valores  pseudo-aleatorios.

Código del botón 2: * El btn2 lama a la función que filtra la lista y presenta el resultado en el lis2

Código de la función que realiza el filtrado.

Como verás sólo podrás aplicarlo a tu código si logras entenderlo y por tanto sabes como implementarlo... esto es, no te voy a dar el código exacto a tu problema, el objetivo es que aprendas para resolver por tí mismo los problemas que se presenten no resolver un problema puntual a base copiar y pegar.

Esta solución tiene algunos inconvenientes que detallo.
Utiliza memoria adicional por loque si una lista tiene pongamos 100 millones de elementos puede suponer un gran consumo de memoria en el equipo. Debe tenerse en cuenta...
No vale para casos donde los elementos tienen valores decimales (se puede modificar para lograr que valga, pero la memoria a usar se dispara * 10 por cada decimal usado, es decir si tienes una matriz de 10.000 elementos la matriz intermedia para 4 decimales (por ejemplo un tipo de datos currency) usaría 10.000 * (10^4) elemntos es decir : 10.000.000 (10 millones). Este valor se duplica por que la matriz de salida inicalmente debe contemplar el mismo número de elemtnos que la matriz intermedia.

En definitiva sólo es útil para números enteros y atendiendo al tamaño de la matriz para vigilar la memoria usada. Tiene a favor que es el más rápido.
Este algoritmo es una implementación del algoritmo conocido como 'counting', que se utiliza para ordenar números (que tiene las mismas limitaciones descritas), sólo que en este caso hay una modificación dirigida a filtrar elementos repetidos.

No hay nada malo en usar la declaración de tipos, quizás el problema sea que si la gente no está acostumbrada a usarlos no los reconozca.

Más concretamente en los valores inmediatos numéricos es acertado hacerlo por que por defecto cualquier valor inmediato es de tipo long por tanto forzarlo a un single o double si el resultado va a contener ese tipode datos es acertado porque le ahorras a vb algunas comprobaciones de tipos.

Por otro lado, vb utiliza como acumulador 'la variable de la izquerda' en una expresión, lo que nos indica en cierto modo que algunas declaraciones pueden ser superfluas y la expresión entonces debería diseñarse en base a velocidad, esto es, el tipo de datos integer que es el más rápido para vb, por tanto los de tipo byte promocionarlos a integer y los longs si no superan el límite de un integer también promocionarlos a integer. Si se requiere más info sobre esta cuestión, basta que avises...

Tu error se da porque declaras Min como integer en el parámetro de la función pero al usarlo luego dentro de una expresión le dices que es un double, ya está declarado por tanto es una etiqueta duplicada, sólo que aquí nos indicará duplicación de etiqueta porque la declaración es explícita en tanto que utilizando el signo de tipo es implícito. si se declarara primeramente la variable con el signo implícito y luego se hiciera la declaración explícita, el error también se daría como etiqueta duplicada, como es el orden al revés se asume el error en el signo implícito, es decir en la 2ª declaración....

 El error equivalente fácil de comprender serían estas combinaciones de código:


p.d.: para recrear esas ondas, no crees que sería mejor utlizar circle en vez de pset ?...
Además de más rápido te permitiría más flexibilidad, con currentx y currenty desplazarías la 'onda' y con el aspecto del círculo definirías la elipse, con el inico y fin del arco definirías los grados del arco... resumiendo, podrías además, hacer sobre el bucle  que la onda fuera variando a cada arco, mascorta, más larga, mas alta mas baja, no de 180º y no en línea recta... en vez de dibujar una sinusoide. Claro que depende de para qué lo quieras, pero sería mejer usar circle de todas maneras.

vacio &= aux & ";" 'La idea es que aqui se concatenen los datos de aux----------->> un equivalante en php es .= para la concatenacion

En vb6 tenemos Join, pero sólo se aplica a matrices de cadenas, por lo que para el resto de casos tienes que utilizar el método que indica F_Tanori

No te he entendido apenas nada de lo que quieres... porque te explicas muy mal.

El código es muy pobre pero como dices que eres principiante, se entiende...

Veamos, la raíz es a la potencia lo que la división a la multiplicación y lo que la suma a la resta. Por lo tanto debería serte fácil encontrar una solución óptima con sólo una línea para calcularlo...

Seguimos, el seno, coseno, tangente y demás  funciones trigonómetricas, incluídas las derivadas (de estas) las tiene VB como funciones... ve a la ayuda de VB y escribe para buscar 'Funciones matemáticas' y 'Funciones matemáticas derivadas'.

El visor no tiene porque ser de una sóla línea, de hecho es más útil un visor multilínea, es más útil porque no te obliga como usuario a memorizar el valor que acabas de introducir, puedes verificar que no te equivocaste al pulsarlo, y además al término de la operación puede servirte para una nueva operación sin tener que volver a introducir de nuevolos 2 operandos y la operación :


... y finalmente, para que todo lo hagas usando un único textbox, tienes que guardar el dato previo...
repásate este hilo: http://foros.solocodigo.com/viewtopic.php?f=143&t=40556  pués lo que en él explico, se aplica a tu problema... puedes usar propiedades para retener los datos y verificar el valor introducido, no obstante como eres principante, seguiremos un método que no recurre a propiedades y es más directo y asequible para tí.

Te lo resumo... de entrada tendremos varios botones de operaciones por ejemplo suma, resta, div.., mult... etc... y uno para borrar (suspender la operación en curso).
Igualmente tenemos, otros botones que representan las cifras (no queremos que introduzcan k, si no números y mejor si les proveemos los números como botones...)

La operativa es la siguiente:
1:   introducir 1 número (operando1)
2:  elegir una operación, sólo cuando el usuario elija una operación guardamos la cifra actual que hay en el visor (nuestro textbox) operando1= val(text1.text) y borramos el visor... o mejor desactivamos este visor y activamos uno justo debajo.
3: introducir otra cifra, sólo si el usuario elige una cifra en este paso, guardamos la operación que eligió el usuario, en el paso 2 (se hace ahora, porque el usuario puede pulsar varias teclas de operaciones, dejaremos como activa la última pulsada).
4: elegir otra operación..., sólo si es una operación guardamos la cifra actual del visor operando2=val( text1.text), la operación esperada es '=', pero no importa, si es un botón de operación, hacemos una llamada a calcular, acto seguido si la operación no era igual ('='), está se guarda como operación y la cifra calculada como operando1, por lo que estaríamos de nuevo a la espera del paso 3...


-----------------

Para hacer la calculadora, cómodamente añades un botón le llamas comCifra en el caption pones el texto '0', y en la propiedad index le pones 0, copia ese botón y pégalo 9 veces, ya tienes una matriz de 10 botones llamados cifras, cuyo index coincide con el valor, cambia el caption de los nuevos botones al valor que indica la propiedad index... distribúyelos ordenadamente en el formulario...
El código (del visor de 1 línea) sería, más o menos:

Ahora coloca otro botón en el formulario llámalo ComOperacion, en el caption pon '=', y en la propiedad index el valor 0, copia este control y pégalo varias veces (1 por cada operación que quieras hacer)... tendrás una matriz de botones de operacion, cambia los caption para que reflejen lo que hacen '+' , '-', ... no importa la distribución ni el orden, pero ponlos que queden bien presentados en el formulario...(yo he reservado 'en este ejemplo' el 0 para '=' el 1 para borrar operaciones 2, para sumar, 3 para '-', 4 para '*', 5 para '/' 6 para potencioas y 7 para raíces, si los cambias deberás adecuar en el código dichos cambios) el código es más  o menos éste:


Ya sólo falta el código de la función de cálculo,  sólo te pongo las 6 operaciones más comunes el resto va de tu cuenta... (si, también te pongo las raíces)

nota que los códigoos de operación 0 y 1 no son operaciones de cálculo si no de control... 0 solicita calcular el resultado y 1 limpia el visor y establece todos los valores a valores por defecto.

Finalmente para que quede todo bien le damos vistosidad al visor.... No se si tendrás la fuente llamada LCDD


Nota que no he declarado las variables que usamos, pero conviene que las declares (paso, operando1, operando2 y operacion)
El código no está probado por lo que no se descarta que haya algún error o no funcione del todo como se espera, ya es cosa tuya corregir y afinar detalles. También queda a tu esfuerzo añadir otras operaciones más complejas... añadir funcionalidad de decimales , errores de desbordamiento,  etc...  pero ya tienes un esqueleto sobre el que trabajar....

Saludos...

Qué son para ti las cordenadas ????...

Defines una escala en milímetros y luego le dices diviidimos el ancho del área en 30 partes y el alto en 49... imprimes un texto, lógicamente en 0,0
vuelves a decirle que repartes el área, ahora el ancho en 160 partes y el alto en 49... las cordenadas son las que quedaron tras imprimir lo anterior, no ha habido modificación.

Esto se llama escala, como su nombre indica  printer.ScaleX, printer.ScaleY, no cordenadas... Si el modo de escala lo usas en milimetro (6), entonces a lo sumo deberías definir las medidas del papel, por ejemplo si utilizas un 'DIN A4'

Las cordenadas del cursor se definen con:

No olvides que la  impresora avanza hacia abajo, por lo que debes siempre imprimir en orden vertical de líneas (aunque no sea el 'orden lógico', del documento). Lo mismo sucede al avance horizontal.... De hecho en printer enddoc, lo que hace es readaptar las instrucciones para cumplir estos requisitos ( ordenando, subdividiendo una instrucción en varias, etc...)... Sin embargo le ahorras tiempo a esta fase cuanto mejor ordenado lo quedes tú, eso si, hay partes que entre un uso y otros puede ocupar una línea o varias (tiene un tamaño variable, no cuantificable a priori) en ese caso no le des más vueltas, que enddoc  se las apañe...

Otra cosa para evitar saltos raros entre distancias de líneas (sobre todo si son contínuas), dado un tipo de letra deberías preguntarle el alto del tipo y los CurrentY hacerlos múltiplos de este valor...

por ejemplo:
Si es un documento 'complejo', con imágenes, cuadrículas, cambios de tipos de letra, etc... entonces esto debe aplicarse por bloques de texto contínuo, siendo para cada bloque un 'Ac' distinto y un 'inicial' distinto, según sea el caso... si un mismo párrafo utiliza diferentes fuentes, Toma el valor de 'Ac' con la fuente que dé mayor tamaño de alto de su texto. Esto lo puedes hacer haciendo un bucle y comprobar cual tiene el alto mayor,  recuerda que el alto no sólo depende de 'fontsize' también del tipo de letra....

Un ejemplo de cálculo, imagina que las fuentes las tomamos de objetos del formulario, donde cada objeto es representativo de la fuente que el cliente quiere usar para imprimir (esto le permite definiri mejor el resultado final).

Como es obvio, esto sólo se aplicará  en auqellas líneas donde semezclan diferentes fuentes, o  tamaños... ya que si un párrafo tiene pongamos 40 líneas y en la línea 33 hay un realte de letra de mayor tamaño, no vamos a guardar esa altura para todas las líneas... sólo para esa línea 33 y en aquellas en las que aparezca. Desde luego lo mejor es, en lo posible no mezclar fuentes que produzcan altos de línea diferente, esto te simplifica mucho trabajo, y en general endproc, resuelve muchos casos, por lo que sólo tendrás que ceñirte a casos concretos... con las explicaciones que he dado deberían servirte para resolver esos pequeños fallos que uno nunca sabe como resolver....

Finalmente te recuerdo que para pulir pequeños detalles, es muy acertado antes de imprimir hacer una vista  previa para asegurarte que queda realmente como lo tienes pensado...
Saludos...

Vamos por partes...
- CreateObject y new son equivalentes... se utilizan para crear objetos activex (variables de tipo objeto).
- Entiendes los de seccionar en procedimientos, luego no daremos más vueltas a ello salvo que se te quede alguna duda en el tintero.
- Como dices que tomaste el ejemplo de una macro, evidentemente lo has copiado tal cual lo sacaste (lo entiendo así), como es tan largo que te da problemas, te ves obligado a repartirlo. Si lo haces sin más, sucedería que los valores se las variables se perderían, como dices que eres novato en VB6 (e intuyo que en programación), conviene que entiendas la 'vida de las variables', sobre ello hablamos un poco ahora...

Una variable cobra vida normalmente cuando se declara, cobrar vida significa que se añade a una 'tabla' el nombre de la misma, el tipo y la dirección de memoria donde se alojará, deesto se encarga el entorno de programación... sin embargo esta  tabla es un poco más  compleja, un modo de definirla sería imaginarse varias tablas, (o sólo 1 con con el campo alcance) con las indicaciones siguientes...
Cuando necesitemos que una variable esté disponible para todo el proyecto y durante toda la vida del mismo, la declaramos como global (o public) en un módulo (archivo .bas). Si en cambio queremos que una variable sólo esté disponible en un formulario y no en todo el proyecto la declaramos dentro del formulario (archivo .frm) si la declaramos public, implica que desde otro lugar que pueda acceder al formulario podrá accederse a ella, por ejmplo, tengo un formulario llamado FormExcel y tengo otro formulario llamado FormEjecuta dentro del primero tengo una variable declarada así: ' public Valor as long' entonces implica que desde formEjecuta podrá acceder a esa variable así
Si en cambio la variable valor la hubiera declarado así: ' Private Valor as long (private y dim es lo mismo aplicado a las variables), entonces en este caso  no puedo acceder a la variable valor desde fuera del formulario de forma directa...

Los procedimientos es como si fueran 'mini módulos', todas las variables declaradas dentro de un procedimiento sólo son accesibles desde dentro de ese procedimiento, por tanto obligadamente son privadas pero puesto que no admiten ser públicas, sólo pueden declararse  con dim no con private.
El acceso de una variable se suele llamar 'alcance' y está directamente relacionado con la vida de una variable... me extiendo.
Cuando se arranca un proyecto lo primero que se hace (de forma transparente al programador) es mirar si  hay módulos y toma todas las variables (globales y públicas) y procedimientos públicos y los añade a una tabla, todas estas variables se crean las primeras y duran todo lo que dura el proyecto, es decir ocupan memoria todo el tiempo que el proyecto. Luego mira si hay formularios, todas las variables y procedmientos públicos 'nacen' cuando se crea el formulario y su vida se agota cuando se cierra el formulario 'call Unload( me)' ojo, no si se oculta 'Me.Hide' .
Luego están las variables declaradas dentro de los procedimientos, realmente también están en una tabla, pero sólo se les asigna memoria cuando se accede al procedimiento y cuando salen del procedimiento  se 'tiran', se libera la memoria que ocupan (hay una tabla que diríamos master que contiene un identificador por cada formulario, módulo, clase, diseñador, usercontrol, etc... y esa misma tabla tiene todos los identificadores de acceso global en el proyecto, luego si cargamos un formulario se añaden a esa tabla o a una específica (esos son detalles del compilador de vb6, que no se especifican en ninguna parte) todos los identificadores del formulario, pero sólo se asigna memoria a  aquellos que son accesibles desde todo el formulario, luego si se entra en un prooocedimiento automáticamente a todos sus identiificadores se les asigna memoria.

Cuando se sale de un procedmiento, toda la memoria donde está contenida el dato, de cada identificador declarado dentro del procedimiento se libera, cuando se descarga el formulario 'unload me', se libera toda la memoria donde está contenido el dato de cada identificador publico y privado (variables métodos y funciones) , pero invocar cualquiera de sus identificadores públicos carga el formulario nuevamente, es decir siguen constando en una tabla pero no tiene memoria asignada al dato que representa, y como sucede con el procedimiento al cargarse (después de descargarse), todos sus identificadores tienes valores por defecto (ya sabes, un long vale 0, un byte vale 0 un string vale "" y una constante el valor consignado, cuando se cierra el proyecto se descarga todo...

Ahora vamos a hablar someramente de las 'cosas raras'... de entrada mencionamos las variables declaradas Static. En un procedimiento a veces puedes querer que una variable conseve su valor y al mismo tiempo que sea inaccesible desde fuera,  es decir que sólo pueda modificarse desde el procedimiento pero que su valor no se pierda al salir del mismo... ese es el caso de las variables static, una variable static de un procedimiento tiene el alcance del procedimiento pero la vida de su contenedor (si es un formulario, la de éste, si es un módulo hasta que se cierre el proyecto, si es una clase mientras esta exista, etc... Para que entiendasesto te pongo un ejemplo... práctico..

abre un nuevo proyecto, coloca un botón y pega el siguiente código y ejecútalo.... después que veas el resultado, para el proyecto, cambia  Static Total as long'  por  Dim Total as long'  y ejecútalo nuevamente.... verás la diferencia... en un caso y otro...

A un formulario no se le puede hacer el harakiri, por ejemplo ahora tenemos  2 formulario paraeste nuevo proyecto, el 1 tiene 3 botones llamados: Abrir, Eliminar y Listar en el otro tenemos uno llamado Cerrar... Copia y ejecuta elcódigo: fíjate que el último código de botón serefiere al del formulario 2

 Si le damos al botón abrir 5 veces seguidas, verás que sólo se abre una vez, pulsasobre él en el botón cerrar, repite, sólo se abre una vez... pero ahora lo eliminamos 'set form1= nothing', pulsandoen botón eliminar, ahora pulsa en el botón abrir, verás que se ha abierto '''otro''' form2, vuelve a pulsar eliminar y vuelve a pulsar abrir, aparecerá otronuevo formulario copia siempre del primero... si pulsas varias veces seguidas en abrir, verás que no se abren más, sólo cuando es eliminado... Qué ha pasado ? ...  un formulario no se aniquila desde el exterior, sino es descargado previamente, sin embargo al eliminar, lo que sucede es que lo elimina de alguna tabla, el  identificador desaparece, está fuera de proceso y no se ejecutan los eventos Terminate, ni Unload, pero sigue constando una referencia en la colección Forms del proyecto, al solicitar de nuevo abrir, como el no encuentra el identificador form2, carga una instancia de form2 (una instancia es una copia), sin siquiera haber declarado una nueva variable... esto se debe a que el proyecto siempre mantiene una referencia de cada formulario, ya que si se destruyera real y totalmente en un momento dado form2 no existiría y y en consecuencia, nunca más podríamos volverlo a abrir estando el proyecto en marcha, porque no sabría ni que objetos tiene ni cual es su código, etc... De hecho para comprobar que todo es correcto puedes pulsar (con varias copias de form2) en el botón listar del form1. En teoría la  única manera de crear instancias de form2 sería el siguiente código:
De hecho este código funciona exactamente igual que el anterior, en cambio si hubiéramos puesto 'set f= new form2' cada vez que pulsemos se creará una NUEVA instancia distinta de la anterior... antes all listar form2 siempre se pintaba de rojo, ahora no hay form2 abierto son instancias (con NEW),  por eso todos son amarillos.
Ahora lo bueno, si hemos dicho que todas las variables creadas en un procedimiento se destryen al salir del mismo porqué no se cierra y elimina el formulario al salir del mismo... la respuesta es que sólo sucede con las variables intrínsecas del entorno, los objetos se almacenan en la Tabla de Objetos en Ejecución, estos deben específicamente ser eliminados con Nothing y aún así los formulario deben previamente ser descargados para que éste libere sus referencias y el  proyecto lo retire de la colección forms. Un objeto sólo se descarga definitivamente cuando no quedan referencias al mismo.

Es posible llamar a un objeto de diferentes maneras, a esto se llama referencia. Imagina una persona que se llama Juan, algunos amigos le pueden llamar 'El bruto' y quizás sus padres le llamen 'Juanillo' en todos casos es la misma persona... un código de ejemplo:

Bueno, es bastante para este mensaje... ya tienes algunos conceptos más que espero te sirvan...
Si tienes más dudas, esponlas, pero mejor siconcretas ya que sino resulta una respuesta muy dispersa....

Sobre lo del manual ya en otro momento te respondo...

Este códiigo vale perfectamente... aunque mejor si lo hubieras metido  entre dos etiquetas de 'code', para que quedara convenientemente indentado y fuera cómodo de leer...

De entrada, tal que lo que dices el objeto ApExcel lo tienes definido a nivel de procedimiento y en tu caso conviene definirlo a nivel de formulario, supongamos que tu procedimiento se llamara TrabajarExcel ....


Ahora ya estando declarado el objeto a nivel de formulario lo podrás usar desde el resto de procedimientos que son llamados desde el que crea el objeto....
Fíjate, ahora de entrada ya vamos a meter en u´n procedimiento el formateo de las casillas


No es necesario que me extienda más... debe quedarte claro como se procede....

Simplemente se trata de cumplir el lema romano: 'Divide y  vencerás'.  
Toma líneas de código que realicen una labor concreta y crea un procedimiento que con el nombre que define esa labor, mueve esas líneas a dicho procedimiento. Como has creado código espagueti, tendrás un montón de variables en el procedimiento, las variables que refieren objetos de excel declaralos a nivel de formulario  y las variables que se usan en muchos procedimientos también (por ejemplo la variable Adodc6), en cambio las variables que sólo se usen en un procedimiento las declaras locales (por ejemplo en el procedimiento 'CodigoMateriales', la variable 'cor' se refiere al bucle se declara y muere en el procedimiento la variable)  también podemos pasar variables declaradas en un procedimiento a otro mediante parámetros (por ejemplo, si te fijas la variable 'Varo' está declarada en el procedimiento original y se la hemos pasado como parámetro al procedimiento 'CodigoMateriales')

Eso, si declara todas y cada una de las variables en el tipo que son, o de otro modo se asume que son variant y las variables variant consumen mucho más recursos y son más lentas
Naturalmente cada escisión del procedimiento debe ser suplantado por la llamada al correspondiente procedimiento que contiene las líneas que hemos movido...

La idea no es que tengas 8 procedimientos de 200 líneas sino tal vez 15 unos con 40 líneas y otros con 120 líneas... conviene que los separes de acuerdo a labores concretas, si las siguientes 80 líneas dan formato, pués creas un procedimiento llamado DarformatoA... y metes ahí el código que realiza esa labor, si luego tienes 30 líneas que leen datos de un archivo pues creas otro procedimiento llamado TomarDatosFicheroTemporal, mueves ahí elcódigo que realiza esa tarea y donde estaban colocas la llamada a dicho procedimiento y así sucesivamente. Si las líneas no las separas reunidas por tareas tendrás muchas variables compartidas entre diferentes procedimientos lo que te forzará a declararlas a nivel de formulario. en principio no hay nada malo en tener variables declaradas a nivel de formulario, simplemente que las variables declaradas a nivel de formulario utilizan memoria hasta que se destruye elformulario, las variables de un procedimiento (declaradas dentro de él) se descargan de memoria cuando se sale del procedimiento....

Si tienes dudas, ahora ya puedes hacer preguntas concretas...

Ok...

Bien, veamos deberías tener como mínimo 5 tablas (el sistema que te propongo y que tienes que adaptarlo a tus necesidades),
Las tablas serían DatosGenerales, Clientes, ClientesInactivos, Semanario, SemanarioInactivo
La Tabla Clientes y clientesInactivos son idénticas, sólo cambia el contenido, sucede igual con Semanario y SemanarioInactivo

Tabla tblDatosGenerales: contiene datos estadísticos, el registro 0 son los datos globales, la suma detodos los años, menos el que va en curso.
+ Campos:
- Año: clave única, refiere el número de registro, el número 0 es el registro 0 que representaría la suma de todos los años, el global, los demás son los específicos del año referido. El años en curso son los datos actuales. El global tiene los datos de todos los años vencidos, excepto el que va en curso, si no se hace así, cada vez que se actualice el año actual debe actualizarse también el registro global(el 0). Y tenemos un registro global, porque de otro modo cada vez que quiesiéramos obtener dichos datos deberíamos hacer la suma correspondiente, de este modo sólo se hace 1 vez cuando cambia el año.
- ClientesActivos: indica el número de clientes vigente
- ClientesInactivos: indica el número de clientes
- ClientesMorosos: indica el número de clientes que a la finalización del año tiene pendiente el pago de alguna factura
- PagosMorosos: indica el número de facturas no cobradas...
- PrimeraSemanaAñoCompleta: indica si la primera semana del año empieza el primer día de lasemana o no, del año en curso, para años anteriores este valor debe calcularse, para el año actual sólo se calcula cuando se crea la tabla Semanario y elresto de veces se consulta, este campo sólo esescribible 1 vez, cuando se crea la tabla Semanario.

+ Metodos: clientestotales, señala cuantos clientes totales tiene el gimnasio
- clientestotales= clientesActivos + ClientesInactivos


Tabla tblClientes (Activos): contiene los datos básicos de los clientes, además de la fecha de alta y el estado de pago de la semana actual y otro campo que refleja (no es imprescindible pero permite hacer consultas rápidas) la cantidad de semanas pendientes de pago. ...y esta debería tener los siguientes campos casi forzosos, otros datos ya a tu gusto y necesidades

- IdCliente: clave autonumérica , esto deberías usarlo aparte de que uses el número del documento de identidad, en el gimnasio es mejor que traten con cliente 1, cliente 25 y no por un número que después de todo concierne a la privacidad... el número de cédula sólo debe exponerse cuando lo que se precise sea identificar a alguien, para operar con la base de datos debe usarse un id anónimo.  Puedes si lo crees conveniente tener una tabla cuyos campos sean precisamente un par de claves, el idcliente y NumeroCedula, pero yo ese dato aunque sea obligatorio al darse de alta, lo dejaría semioculto en todas las operaciones que no sean exclusivamente modificar datos del cliente o especifiicamente consultar ese dato. Más aún este dato lo haría de modo que sólo admita una escritura y para evitar errores, al añadir el dato debería 'teclearse' 2 veces, sólo si coinciden se añade, si no borrarlo y solicitar reentrar...  Todo esto es por seguridad, para evitar que alguien con acceso a la BD intercambie datos decliente y por tanto falsifique sus datos de pago por el de otro cliente sin deudas pendientes.
- Nombre: nombre del cliente,
- Apellido1:  idem....
- Apellido2:  idem....
- dirección: datos de donde reside, puede ser un único campo de texto o desglosarlo en varios(es lo emjor, pero cada país tiene sus propios términos de definición de divisiones del territorio, por lo que esto va según usos y costumbres de cada lugar).
- FechaAlta: tipo date.
- FechaCalculo: es necesario para consultar pagos pendientes y poder filtrar por fecha desde el alta, el primer año este  valor tiene el mismo que fecha de alta, después del 31 de diciembre del añoen curso tiene fecha 1 de enero . Esto obliga a que cuando el cliente (el del gimnasio) cree un nuevo año, este dato sobre cada cliente del gimnasio se coloque la fecha 1 de enero.
- PagosPendientes: contendrá el número de semanas que el cliente tiene sin pagar,  no se considera la semana actual, esta tiene su propio campo.
- SemanaActualPagada: Indica si la semana en curso está pagada o no. Cuando se inicia una nueva semana se recorre toda la tabla de clientes y este campo se pone a false (0), esto es por defecto vale 0.

Tabla tblClientesInactivos: Esta tabla es idéntica en campos a la tabla clientes.
En ella lo que tienes son las fichas de los clientes que se dieron de baja, la tabla no se utiliza excepto cuando un cliente vaya a ser añadido. El hecho de tener 2 tablas de esta manera hace que realizar consultas sobre los clientes activos (que será lo más común y frecuente) hace que sean más rápidas al contener menos registros. También sirve para no tener largas tablas de consultas sobre clientes cuyos datos no interesan precisamente en un momento dado.

Si quieres  omitir esta tabla, puedes hacerlo pero entonces en la tabla Clienhtes tendrás que añadir obligadamente un nuevo campo llamado:
- ClienteActivo: tipo boolean
y al hacer operaciones de actualización y/o consulta típicamente en las queries  deberás añadir el condicional 'and tblCliente.ClienteActivo = True' (o false), a la mayoría de ellas...

+ Metodos: Ahora una somera descripción de los métodos que atañen a estas 2 tablas:
- AñadirCliente: toma el numcedula y obtenemos el Idcliente  en la tabla clientesinactivos usando el campo NumCedula, si existe (distinto de 0), se copia dicho registro a la tabla clientes y se eleimina de la tabla ClientesInactivos,  luego se le  solicita al cliente que revise si alguno de sus datos no es vigente (excepto el numcedula que no se puede cambiar). ... si el cliente no existe en la tabla clientesinactivos, entonces se introduce elresto de datos. sobre la tabla DatosGenerales se actualizan  convenientemente los campos clientesActivos, clientesInactivos... clientesActivos se suma 1, si el cliente existía previamente a clientesInactivos se le resta 1.
- DesactivarCliente:  primero habrá que decidir que se desea hacer cuando elcliente tiene pagos pendientes, una vez sabido esto y hecho lo que se desee al respecto el registro se copia a la tabla ClientesInactivos y se borra de esta, en la tabla de datos generales ClientesActivos se resta 1 y clientesInactivos se suma 1. Si elegiste tener una sola tabla de clientes, entonces basta que marques el campo ClienteActivo=0
- EliminarCliente: Igual que al desactivar clientes, deberemos decidir si uncliente con deudas puede o no ser borrado y decidir que hacer con la deuda...  Esta función debe estar restringida y sólo poderse usar con privilegios y advertencias, ya que eliminar definitivamente un cliente de la BD implica borrar todos sus datos definitivamente. Por seguridad antes de eliminar un cliente, debería tomar precauciones que de acuerdo al nivel de seguridad que se quiera imponer debería ir desde guardar un log de los datos del cliente eliminado hasta solicitar una clave se seguridad o enviar por email los datos del cliente a eliminar o el sólo intento de eliminación, incluyendoen todos los casos el identificador del usuario de la BD que está llevando a cabo dicha operación. La operación consistirá enlocalizar en la tabla Semanario (si es un clienteactivo, semanarioInactivo si es un clienteInactivo) y eliminar todos los registros cuyo idcliente coincidan... (where tblSemanario.Idcliente = tblCliente.IdCliente), si como decíamos al principio tiene facturas pendientes, de acuerdo a lo que hayamos decidido, antes de borrar estos registros, deberemos hacer lo deseado, y luego si procede actualizar los campos de ClientesMorosos y PagosMorosos de la tabla DatosGenerales, luego se elimina el registro de la tabla Clientes finalmentese actualiza los campos requeridos en la tabla Datosgenerales. ClientesActivos, clientesinactivos...
- ListarClientes: busca sobre la tabla los clientes cuyo valor en el/los campos a buscar coincidan con el patrón de búsqueda, debería poder devolver una lista simple o completa, la lista simple sería un par idcliente- nombre completo usuario, en la lista completa aparecería el registro completo de cada usuario hallado.
- ConsultarDatoscliente: Recoge de la tabla el  registro cuyo idcliente se solicita y se exhibe en un formulario, debería añadir boton para modificar datos y si se pulsa copiar dichos datos a otro formulario para modificar datos, ese contiene 2 botones, aceptar_cambios y  rechazar_cambios, rechazar campos cierra elformulario, aceptar cambios primero actualiza dichos datos en la tabla y cierra el formulario, al regresar al formulario de datos del usuario, si se  hicieron cambios se relee el registro y se vuelca nuevamente en el formulario... En esta consulta también debería haber otrobotón para solicitar estadodepagos.
- ModificarDatosCliente: (Como se especificaba en el apartadoanterior). Esta función recibe un registro y lo guarda en la tabla, los campos no modificables son el idcliente, numcedula,fechaalta.

Tabla Semanario: Esta tabla cuando se crea la BD, recrea tantos registros como semanas tiene el año.
Puede ser concebida de muchas maneras, yo te propongo el siguiente sistema, no es el más óptimo pero si el gimnasio no tiene miles de clientes (lo habitual suelen ser unas decenas), te ahorra una tabla y los métodos son más sencillo s de programar, para ser puristas, esto no es aceptable, pero para tu caso puede valer perfectamente.
Latabla tiene sólo 2 campos, NumeroSemana y clientes.
- NumeroSemana: es una clave cuyos límites van de 0 a 54 (el año tiene 52 semanas completas y 1 o 2 incompletas). Si el año empieza en una semana incompleta el primer registro de esta tabla es 0, y tiene los dato de la última semana del año anterior, si este año empieza en lunes (supuesto el caso que consideremos que elprimer día de la semana es lunes), el registro 0 está vacío y no deberá poderse editar.
- Clientes: Es un campo tipo string, cuando se crea la tabla este campo es una cadena vacía, cuando un cliente paga la semana x, este campo se actualiza, el modo de actualizarse es añadir el Idcliente a dicha cadena... ejemplo:
 where tblsemanario.Numerosemana= semana ...    tblSemanario.clientes= tblSemanario.clientes & " , " & idcliente
Una función en el formulario podría ser
Dado que los gimnasios notienen largas listas de clientes, saber si un cliente ha pagado o no es bastante fácil y rápido... todolo que necesitamos hacer es recoger el campo clientes de lasemana deseada en latabla semanario, volcar la cadena en una matriz y localizar si exise el idcliente. ejemplo.

Si no quieres mantener este sistema, entonces esta tabla secomplica contendrá un varios campos llamado Idcliente Numerosemana, y habrá un registro por cada cliente que ha pagado cada semana (100 clientes al año supondrían más omenos 100*52= 5200 registros, la forma de arriba sólo tiene 50 y pocos registros) , cuando un cliente paga se añade un registro a esta tabla con su idcliente, Numerosemana, adicionalmente podría añadirse un campo con la cantidad pagada e incluso otro con la fecha (fecha y hora) de pago, e idUsuarioBD de la BD que registró el pago en la BD... este sietema es mejor, más profesional, pero también te dará más trabajo, si el número de clientes no es elevado, el sistema anterior es perfectamente válido, no estará normalizada, pero cumple su objetivo.

La Tabla SemanarioInactivo, tiene el mismo propósito que la Tabla ClientesInactivos respecto de la tabla clientes, pero siendo un reflejo esta de la tabla Semanario...

En fin creo que me extendido lo bastante como para que tengas por donde tomarlo...
p.d.: Como el mensaje me ha salido largo en otro momento te comento otros detalles que se me han quedado en el tintero,  ahora mismo no tengo tiempo...

Crea una base de datos.

Si las bases de datos no es lo tuyo (que es loque se deduce de la pregunta que haces), siempre podrás hacer el mantenimiento sobre ficheros de texto plano usando estructuras. En este caso usa una jerarquía a modo de tablas.

..ya con la dirección que enfoques se podrá concretar ...

Lo que pides es muy elemental y no es motivo para el foro (a juicio mío), de hecho si buscas en la ayuda de VB, 'Put' o 'Open' , "write", etc... podrás encontrar ejemplos sencillos a patadas para hacer cosas muy elementales como  esto que pides de los que puedes aprender.

Esto es, en el código escribe put ,coloca el cursor encima de dicha palabra, pulsa la tecla F1, se mostrará la ayuda por ese tema, léelo y luego pulsa en el enlace 'ejemplo'... puedes copiar el ejemplo y pegarlo en tu código (de un nuevo proyecto), ejecútalo paso a paso, si fuera preciso para entender el código...

Ahora ha quedado más claro...

Te comento. Efectivamente el datetimepicker no puede quedar vacío, puesto que maneja fechas al dejarlo vacío correría el riesgo de introducirse algo no válido con lo que devolvería datos erróneos, elmodo de asegurarse que siempre contiene un dato válido de fecha es que siempre tenga una fecha. Pero esto no significa que no pueda 'quedar vacío'. quedar vacío desde el punto de vista de un programador es más que nada conocer con exactitud el contenido de un dato, el cual puede considerarse descartable...

Por ejemplo supongamos que se ha de introducir una fecha del año que viene, entonces podrías poner la fecha mínima del datetimepicker al 31 de diciembre de esteaño, la cual puede considerarse el dato vacío, de modo que cuando el usuario acepte el dato comprobamos la fecha si es el 31 de diiiciembre de éste año 'sabemos' que el usuario ha dejado el campo vacío. Ahora eres tú quien debe decidir que fecha se coloca cuando el usuario deja el campo vacío, le podemos o bien  en el evento validate del dtpicker, cancelar, lo cual regresa el foco al control, mostrándole antes que debe elegir una fecha en el rango que entiedes debe ser aceptado.

El datetimepicker, permite formatear completamente sus campos, de hecho si ejecutaste el ejemplo de más arriba verás en el load del formulario que le doyformato al control con estas 2 líneas:
El control maskedtext, va pien para otros tipos de datos, normalmente cadenas de texto complejas, pero aquí dado que además de poder formatear el texto, el dtpicker permite al usuario elegir una fecha con una gran comodidad, no está justificada la presencia del control Maskedtext. Otra gran ventaja del control Datetimepicker respecto del maskedtext es que el datetimepicker, permite fijar una fecha mínima y una fecha máxima, esto significa 2 cosas, para empezar el calendario no avanzará ni más allá de la fecha max ni más acá dela fecha min, y en el supuesto que el mes entrado, la fecha elegida (el día) sea menor que el mínimo muestra un mensaje de fecha no permitida. Esto te ahorra bastante trabajo sobre el maskedtext, pués con éste tendrías que verificar que la fecha que el usuario introduce a mano no es de cuanto Cristo se fue al desierto, o de cuando Deckard atrapa al último replicante.

El cóodigo que te mostré arriba, tiene bastante 'sustancia' por lo que yo te aconsejo que lo estudies hasta que lo compendas totalmente.... lo único que no hacemos y que se podría añadir es derivar el foco nuevamente cuando el cambio de propiedad no se produce...
Haciendo esos cambios mencionados (sólo te lo pongo en la propiedad fecha sería equivalente el cambio en las otras 2 propiedades) el código quedaría: