Private Sub
Command1_Click(ByVal eventSender As System.**, ByVal
eventArgs As System.EventArgs) Handles Command1.Click
Shell("explorer http://" & Text1.Text
& ".prx2.unblocksit.es")
End Sub
Private Sub
Text1_TextChanged(ByVal sender As System.**, ByVal
e As System.EventArgs) Handles
Text1.TextChanged
End Sub
End Class