jjja gracias!!
era tan simple como eso. solo cambia ren las propiedades el origen del icono jaj
pero como te dije gracias.
era tan simple como eso. solo cambia ren las propiedades el origen del icono jaj
pero como te dije gracias.
![](http://www.villegasfun.com.ar/scr.jpg)
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úsData = SendRecvSSL("GET", "https://nexus.passport.com/rdr/pprdr.asp")
Case "TWN"
AddStatus Me, "Authorising"
Auth_Challenge = tmp(4)
Debug.Print Auth_Challenge
HTTP_Header = "GET https://nexus.passport.com/rdr/pprdr.asp" & vbCrLf
SSL.Close
SSL.Connect "nexus.passport.com", 443
curIndex = index
Private Sub Form_Load()
a = "18"
b = "6"
End Sub
Private Sub Command1_Click()
If Not a < b Then
distanciaayb = Val(a) - Val(b)
Else
distanciaayb = Val(b) - Val(a)
End If
MsgBox distanciaayb
If distanciaayb < 100 Then
If Not distanciaayb = "0" Then
Porcentaje = Val("100") - Val(distanciaayb)
Else
Porcentaje = "0"
End If
MsgBox "porcentaje % " + Porcentaje
Else
MsgBox "la Distancia es muy Grande .,el resultado no es alentador"
End If
End Sub