Insérez le code suivant entre la déclaration de la fonction et "End Sub":
ShellExecute Form1.hwnd, "ouvert", "http://commentfr.ru 8221-, "", "", SW_SHOW Ou SW_NORMAL
Si vous avez donné votre formulaire un nom différent de celui "Form1," changer le nom de manière appropriée. En outre, vous pouvez changer le site d'exemple à tous ceux que vous préférez.