Formulario de envío de VB

Altura = Me.ScaleHeight - (picaddress.Top + picaddress.Height)

End Sub

Private Sub cboAddress_Click() 'Evento de clic para el cuadro de lista desplegable

Si mbDontNavigateNow entonces salga de Sub

Timer1.Enabled = True

WebBrowser1.Navigate cboAddress.Text()Text

End Sub

Private Sub cboAddress_KeyPress(KeyAscii As Integer) 'Evento de pulsación de teclado del cuadro de lista desplegable

En caso de error, reanudar a continuación

Si KeyAscii = vbKeyReturn Entonces

cboAddress_Click

End If

End Sub

Private Sub Form_Load() 'El formulario ha sido cargado. Evento

En caso de error Reanudar siguiente

Me.Show

Toolbar1.Refresh

Form_Resize

cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15 'Establece la posición del menú desplegable

Si Len(StartingAddress) > 0 Entonces

cboAddress.Text = StartingAddress 'Drop -cuadro de lista de menú desplegable Contenido de texto

cboAddress.AddItem cboAddress.Text = StartingAddress 'Establece el contenido de texto en el cuadro de lista del menú desplegable