Sub OpenURLInBrowser(URL As String)
Dim shell As Shell
shell.Initialize("shell", "cmd", Array As String(" /c start " & URL)) ' Modifica "cmd" con il comando del tuo sistema operativo (e.g., "xdg-open" su Linux)
shell.WorkingDirectory = File.DirApp
shell.Run(-1) ' Esegui il comando
End Sub