diff --git a/Dokumentation/Classes/cExtProgramme.vb b/Dokumentation/Classes/cExtProgramme.vb
index bf5fa1d..ee3eca4 100644
--- a/Dokumentation/Classes/cExtProgramme.vb
+++ b/Dokumentation/Classes/cExtProgramme.vb
@@ -2,15 +2,23 @@
 
 Public Class cExtProgramme
 
-    Public Shared Function startlink(URL As String)
+    Public Shared Function startlink(URL As String, Optional ByVal p As String = "")
 
         Try
             If URL.Contains("http") Or URL.Contains("https") Then
-                Process.Start(URL)
+                If p = "" Then
+                    Process.Start(URL)
+                ElseIf p = "edge" Then
+                    Dim edge As New Process
+                    edge.StartInfo.FileName = "msedge.exe"
+                    edge.StartInfo.Arguments = " " & URL
+                    edge.Start()
+                End If
+
             ElseIf URL = "" Then
-                Exit Function
-            Else
-                Dim mstsc As New Process
+                    Exit Function
+                Else
+                    Dim mstsc As New Process
                 mstsc.StartInfo.FileName = "mstsc.exe"
                 mstsc.StartInfo.Arguments = " /v: " & URL
                 mstsc.Start()
@@ -124,7 +132,7 @@ Public Class cExtProgramme
             commandcmd("cmdkey /generic:" & host & " /user:" & Username & " /pass:" & Password)
 
         End If
-        Threading.Thread.Sleep(1000)
+        Threading.Thread.Sleep(3000)
 
 
         mstsc.StartInfo.FileName = "mstsc.exe"
diff --git a/Dokumentation/My Project/Resources.Designer.vb b/Dokumentation/My Project/Resources.Designer.vb
index 41bffce..f609b34 100644
--- a/Dokumentation/My Project/Resources.Designer.vb	
+++ b/Dokumentation/My Project/Resources.Designer.vb	
@@ -289,7 +289,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.79 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.81 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get
diff --git a/Dokumentation/My Project/Resources.resx b/Dokumentation/My Project/Resources.resx
index 1b05bd6..da708ef 100644
--- a/Dokumentation/My Project/Resources.resx	
+++ b/Dokumentation/My Project/Resources.resx	
@@ -155,7 +155,7 @@
     <value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>0.0.1.79</value>
+    <value>0.0.1.81</value>
   </data>
   <data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
diff --git a/Dokumentation/frmHostBearbeiten.Designer.vb b/Dokumentation/frmHostBearbeiten.Designer.vb
index ca9dcff..6c4b4ab 100644
--- a/Dokumentation/frmHostBearbeiten.Designer.vb
+++ b/Dokumentation/frmHostBearbeiten.Designer.vb
@@ -72,6 +72,7 @@ Partial Class frmHostBearbeiten
         Me.CmdDelete = New System.Windows.Forms.Button()
         Me.TxtBenutzername = New System.Windows.Forms.TextBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.txtSSHPort = New System.Windows.Forms.TextBox()
         Me.Label14 = New System.Windows.Forms.Label()
         Me.cmdRDP = New System.Windows.Forms.Button()
@@ -89,7 +90,7 @@ Partial Class frmHostBearbeiten
         Me.PanFirewall = New System.Windows.Forms.Panel()
         Me.PanSlaves = New System.Windows.Forms.Panel()
         Me.PanNavTop = New System.Windows.Forms.Panel()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.ContextMenuStrip2.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -531,6 +532,7 @@ Partial Class frmHostBearbeiten
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.Button2)
         Me.Panel1.Controls.Add(Me.Button1)
         Me.Panel1.Controls.Add(Me.txtSSHPort)
         Me.Panel1.Controls.Add(Me.Label14)
@@ -588,6 +590,21 @@ Partial Class frmHostBearbeiten
         Me.Panel1.Size = New System.Drawing.Size(643, 460)
         Me.Panel1.TabIndex = 137
         '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.ForeColor = System.Drawing.Color.Red
+        Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.mstsc1
+        Me.Button1.Location = New System.Drawing.Point(271, 340)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(32, 32)
+        Me.Button1.TabIndex = 150
+        Me.Button1.Text = "[ ]"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
         'txtSSHPort
         '
         Me.txtSSHPort.Location = New System.Drawing.Point(123, 352)
@@ -762,20 +779,17 @@ Partial Class frmHostBearbeiten
         Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
         Me.PanNavTop.TabIndex = 141
         '
-        'Button1
+        'Button2
         '
-        Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight
-        Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button1.ForeColor = System.Drawing.Color.Red
-        Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.mstsc1
-        Me.Button1.Location = New System.Drawing.Point(271, 340)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(32, 32)
-        Me.Button1.TabIndex = 150
-        Me.Button1.Text = "[ ]"
-        Me.Button1.UseVisualStyleBackColor = False
+        Me.Button2.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.Button2.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(332, 375)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(96, 23)
+        Me.Button2.TabIndex = 151
+        Me.Button2.Text = "Link mit Edge"
+        Me.Button2.UseVisualStyleBackColor = False
         '
         'frmHostBearbeiten
         '
@@ -872,4 +886,5 @@ Partial Class frmHostBearbeiten
     Friend WithEvents Label14 As Label
     Friend WithEvents txtSSHPort As TextBox
     Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
 End Class
diff --git a/Dokumentation/frmHostBearbeiten.vb b/Dokumentation/frmHostBearbeiten.vb
index bf46eac..98e8b4e 100644
--- a/Dokumentation/frmHostBearbeiten.vb
+++ b/Dokumentation/frmHostBearbeiten.vb
@@ -391,4 +391,8 @@
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         cExtProgramme.RDPConnect(host.FQDN, host.Benutzer, host.Passwort, True)
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        cExtProgramme.startlink(TxtLink.Text, "edge")
+    End Sub
 End Class
\ No newline at end of file