Lo q t a escrito _Sergi_ tiene errores tontos
este es el mismo code pero t va a funcionar.
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
Lo d q habra la pagina web seria asi
Set web = CreateObject("WScript.Shell")
web.Run "http://" & Text1.Text
Tan solo decirte q eso t va a servir pero si lo kieres hacer muxo mejor busca sobre la API k t abre las web