Private Sub HCM_CellLinkClick(ByVal sender As Object, ByVal e As HelperHyperlinkGrilla.IGHCMCellLinkClickEventArgs) Handles HCM.CellLinkClick
        Dim c As String = e.Cell.Text
        If c.StartsWith("D") Then 'Es carta
            Dim cm As DTOCuadroFacturacion = cartasHyperlinks.Find(Function(x) x.LetterCode = c)
            Process.Start($"{cm.LetterFile}")
            Exit Sub
        End If
        Process.Start($"{HelperGlobalVar.BaseUri}pagos/instrucciones/{c}")
        e.Cell.Row.Selected = True
    End Sub

Private Sub HCM_CellIsLink(ByVal sender As Object, ByVal e As HelperHyperlinkGrilla.iGHCMCellIsLinkEventArgs) Handles HCM.CellIsLink
        Dim c As String = CType(e.Cell.Value, String)
        If c IsNot Nothing Then
            If c.StartsWith("D") AndAlso c.Length = 7 Then 'Es carta
                e.IsLink = True
            End If
        End If
        If instruccionesHyperlink.Contains(c) Then
            e.IsLink = True
        End If
    End Sub

   Private Sub FGrid_CellMouseDown(ByVal sender As Object, ByVal e As iGCellMouseDownEventArgs)
        If fPointerOverLink Then
            ' do not edit the cell if it has been already selected
            e.DoDefault = False
            ' just select the cell
            FGrid.SetCurCell(e.RowIndex, e.ColIndex)
            ' this is the place for your code that processes the link click
            RaiseEvent CellLinkClick(Me, New IGHCMCellLinkClickEventArgs(FGrid.Cells(e.RowIndex, e.ColIndex)))
        End If
    End Sub