Visual Basic - identificar llave principal de tabla con ADOX

saludos foro tengo un problema haber si me pueden ayudar, necesito identificar la llave principal de unas tablas con ADOX este es el codigo que uso:

Dim nombretabla As String
Dim Ct1 As New ADOX.Catalog
Dim Tb As ADOX.Table
Dim Cl As ADOX.Column

Dim fila As Integer
Set Ct1.ActiveConnection = conexion

For Each Tb In Ct1.Tables

If Tb.Name = nombretabla Then
Grid1.Cols = numtablas + 1
Grid1.Col = columna
Grid1.Row = 0
Grid1.Text = nombretabla
For Each Cl In Tb.Columns <-----------------------------
Grid1.AddItem Row
Grid1.Row = fila

Grid1.Text = Cl.Name <------------------------------
fila = fila + 1
Next Cl
fila = 1
End If

Next Tb

lo unico que falta es identificar la llave de las tablas que voy guardando en el grid, en donde estan las flechas manejan metodos "KEYS" y "KEY", no se si puedan servir para sacar la llave principal, si es asi, ¿como las uso para sacar la llave principal?,

cualquier comentario, idea referencia, ejemplo o tutorial que me puedan facilitar se los voy agradecer mucho,

agradezco la atencion que le den al presente post.