在 VB6 中，如果你有一个 Collection 对象，并且想要获取其中所有键（Key）的列表，你可以按照以下步骤进行操作：
1. 创建一个字符串数组来存储键列表：
〓〓vb代码如下：〓〓
Dim keys() As String
2. 使用 For Each 循环遍历 Collection 对象的每个项，将键添加到字符串数组中：
〓〓vb代码如下：〓〓
Dim key As Variant
ReDim keys(1 To myCollection.Count) As String ' 根据 Collection 的大小调整数组大小
Dim i As Integer
i = 1
For Each key In myCollection.Keys
keys(i) = key
i = i + 1
Next key
3. 完成循环后， keys 数组中将包含 Collection 对象中所有键的列表。
土嘎嘎技术网友情提示：上面给出的示例假设 myCollection 是你的 Collection 对象，你需要根据实际情况将其替换为你自己的对象名称。此外， ReDim 语句用于调整数组的大小，以适应 Collection 中的项数。
完成上面给出的步骤后，你可以使用 keys 数组来访问和处理 Collection 对象中的所有键。