Private Sub PanelLinkLabel_MouseClick(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.MouseEventArgs) Handles LinkLabel1.MouseClick
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
            MsgBox("rechts")
            Exit Sub
        Else
            Dim newlabel As LinkLabel = CType(sender, LinkLabel)
 
            Try
 
                Process.Start(CStr(newlabel.Tag))
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Ein Fehler ist aufgetreten", _
                  MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
            End Try
        End If
 
    End Sub