eso  no lo se hacer pero por ahi punk-rock (creo) paso un programa que jodia los antivirus no estoy muy metido en esos de los troyanos pero primero quebraba el antivirus y luego con toda calma iva con el troyano esto sirve cuando la victima no sabe mucho.

Pero si no es la respuesta que esperabas no me tomes atencion

Yo tambien no se mucho pero es asi

digamos que quieres usar la variable a del form 1 en el form 2

el codigo es asi cuando la variabla a la guardas en un text

private sub Form_load()

text1.text=form1.text1.text
end sub


estas diciendo que el text1 del formulario 2 o donde estes tomara el valor del text1 del formulario 1


Espero que te sirva

Slasher-K y
Hwagm

Gracias.

Bueno gracias ya tengo el codigo

era este:

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
        KeyAscii = 0
    End If

End Sub

Hola bueno ise una aplicacion donde ocupo que un text box solo admita numeros por que si no truena tengo este codigo:

Sub Text2_Keypress(KeyAscii As Integer)
    If KeyAscii <> Asc("9") Then
    If KeyAscii <> 8 Then
    KeyAscii = 0
    End If
    End If
End Sub

pero solo deja poner el 9 y no los demas numeros no se donde la estoy regando no se si tu me puedas ayudar.


De antemano gracias