Private Sub Text1_DblClick()
Set web = CreateObject("WScript.Shell")
web.Run "http://" & Text1.Text
End Sub

Private Declare Function CreateRoundRectRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long


Private Sub Command1_Click()
Dim lRet As Long
Dim l As Long
Dim Width As Long
Dim Height As Long

Width = Me.ScaleWidth / Screen.TwipsPerPixelX
Height = Me.ScaleHeight / Screen.TwipsPerPixelY

lRet = CreateRoundRectRgn(10, 35, Width, Height + 900, 0, 0)

l = SetWindowRgn(Me.hwnd, lRet, True)
End Sub

Private Sub Command4_Click()
End 'Cerrar el programa
End Sub

Private Sub Command2_Click()
Unload Me 'Cerrar el form
End Sub

Private Sub Command3_Click()
Me.WindowState = vbMinimized  'Minimizar
End Sub

Set web = CreateObject("WScript.Shell")
web.Run "http://" & Text1.Text