divers layout, etc

Aviso/frmBundesanzeigerZollTarif.vb

@@ -10,9 +10,11 @@
         InitializeComponent()
 
         Select Case Link
-            Case "EU"
-                url = "https://ec.europa.eu/taxation_customs/dds2/taric/taric_consultation.jsp?Lang=de"
+            Case "EU" : url = "https://ec.europa.eu/taxation_customs/dds2/taric/taric_consultation.jsp?Lang=de"
+            Case "HerbertKI" : url = "https://herbert.it.verag.ag/"
+            Case "TariffAI" : url = "https://tariff.singlewindow.io/chat"
         End Select
+
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
@@ -24,7 +26,7 @@
         WebBrowser.Navigate(New Uri(url))
         WebBrowser.AllowNavigation = True
         WebBrowser.ScriptErrorsSuppressed = True 'Hinweismeldungen bzgl sicherer Verbindung unterbinden
-
+        MsgBox(url)
     End Sub
 
     Private Sub wb_NewWindow2(ByVal sender As Object, ByVal e As Kleinma.Controls.WebBrowserNewWindow2EventArgs) Handles WebBrowser.NewWindow2