prueva haci:
Código [Seleccionar]
Private Sub Form_Load()
Shell "C:\WINDOWS\system32\rasphone.exe"
SendKeys "{enter}"
End Sub
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Form_Load()
Shell "C:\WINDOWS\system32\rasphone.exe"
SendKeys "{enter}"
End Sub
Shell(pathname[,windowstyle])
Dim I as integer, suma as integer
I=1
Do While I <= 99 'bucle mientras I<=99
suma = suma+I
I=I+2
Loop
Print suma
text1.text = form1.caption
form1.caption = "Lo que quieras" 'tambien puedes usar controles como los text