Private Sub CargarCoicidencias(datos As Collection) '24 ago 2020
  With gdwCoicidencias
    .header = 2
    .Columns.Count = 2
    .Rows.Count = datos.Count
    .Columns[0].Title = ("Libro")
    .Columns[0].Expand = True
    .Columns[1].Title = ("Abreviatura")
    .Columns[1].Width = 130
    Dim dato As String
    Dim fila As Integer
    For Each dato In datos
      .[fila, 0].Text = dato
      .[fila, 1].Text = datos.Key
      Inc fila
    Next
    
     .Height = .Rows.Height * datos.Count    '<----------------- alto gridview  =alto de una fila*cantidad de filas que contendrá el gridview, en esta caso lo da una colección
    
  End With
End