HolaT0rete,no,porque tampoco esta en la lista de mis post...
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 Command1_Click()
WebBrowser1.Document.f.btng.Click
End Sub
Private Sub Form_Load()
With WebBrowser1
.Visible = True
.Navigate "http://google.com.ar/"
End With
End Sub
Private Sub Text1_Change()
WebBrowser1.Document.f.q.Value = Text1.Text
End Sub
Dim metros As Double, pies As Double, pulgadas As Double
Dim yardas As Double, centimetros As DragConstants
Private Sub cmdConvertir_Click()
On Error GoTo Error
centimetros = Val(txtMetros.Text) * 100
pulgadas = centimetros / 2.54
pies = pulgadas / 12: yardas = pies / 3
txtSalida.Text = "Centimetros :" & Str(Format(centimetros, "#####.##")) & vbCrLf & "Pulgadas :" + Str(Format(pulgadas, "#####.##")) & vbCrLf & "Pies : " + Str(Format(pies, "#####.##")) + vbCrLf & "Yardas :" + Str(Format(yardas, "#####.##"))
Exit Sub
Error:
MsgBox Err.Description, vbCritical, "Erro número:" & Err.Number
End Sub