Los moderadores, MVP y administradores podrán seguir editando, respondiendo o creando nuevos mensajes

Saludos a Todos... tengo ke recorrer unas claves del regedit y meterlas en una matriz bidimensional la vaina es ke la declaro sin valor de dimensiones .... como es logico despues tendria ke redimensionar ... la cosa es ke lo he hecho pero me sale un error "Referencia a objeto no establecida como instancia de un objeto" en la linea "mcp(0, i) = con", aki les dejo el codigo entero:

Imports Microsoft.Win32

Module Module1
    Dim mcp( , ) As String
    Sub Main()
        Dim Keys As RegistryKey
        Keys = Registry.LocalMachine.OpenSubKey("Software\bot\ConPer")

        Dim i As Integer
        For Each k As String In Keys.GetSubKeyNames
            Dim Key As RegistryKey = Keys.OpenSubKey( k)
            Dim con As String = Key.GetValue("contacto")
            Dim son As String = Key.GetValue("sonido")
            mcp(0, i) = con
            Dim colorc As String = Key.GetValue("color")
            colorc = Mid(colorc, 8, colorc.Length - 8 )

            mcp(1, i) = colorc

            mcp(2, i) = son
            Key.Close()
            Console.WriteLine(mcp(i, 0) & "," & mcp(i, 1)
                 & "," & mcp(i, 2))
        Next
        Keys.Close()
    End Sub
End Module

Redim Preserve donde y como va?

muchas gracias de antemano!




[Editado: Ciper, 29/04/2008 16:54:49]
[Ciper, 29/04/2008 16:56:05]

jeje pues ya logre acordarme ... ayayay ... en fin era asi:

Imports Microsoft.Win32

Module Module1
    Dim mcp( , ) As String
    Sub Main()
        Dim Keys As RegistryKey
        Keys = Registry.LocalMachine.OpenSubKey("Software\B0t\ConPer")

        Dim i As Integer
        For Each k As String In Keys.GetSubKeyNames
            ReDim Preserve mcp(i, 2)

            Dim Key As RegistryKey = Keys.OpenSubKey(k)
            Dim con As String = Key.GetValue("contacto")
            Dim son As String = Key.GetValue("sonido")
            mcp(i, 0) = con
            Dim colorc As String = Key.GetValue("color")
            colorc = Mid(colorc, 8, colorc.Length - 8 )

            mcp(i, 1) = colorc

            mcp(i, 2) = son
            Key.Close()
            Console.WriteLine(mcp(i, 0) & "," & mcp(i, 1)
                 & "," & mcp(i, 2))
            Console.ReadLine()
        Next
        Keys.Close()
    End Sub
End Module

Linea clave:

ReDim Preserve mcp(i, 2)

para redimensionar la matriz!