consulta [sigo con cDOSNumeros]

Hola! Tengo este codigo:

Dim co As Collection

Dim n1 As cDOSNumeros

co = New Collection

n1 = New cDOSNumeros

Dim cadena As String



'// Agregar objetos a la colección

n1.m_col1 = 54

n1.m_col2 = 34.971

co.Add(n1, "2") //ERROR Value of type 'Integer' cannot be converted to
'Microsoft.VisualBasic.Collection';



Y esta es la clase cDOSNumeros:

Option Strict Off

Option Explicit On

Friend Class cDOSNumeros


Public m_col1 As New Collection

Public m_col2 As New Collection


Public Sub Add(ByVal Clave As String, ByVal Num1 As Double, ByVal Num2 As
Double)

'si tenemos n numeros, necesitamos n colecciones

'Agregamos cada elemento relacionandolo con su clave

'UPGRADE_WARNING: Couldn't resolve default property of object m_col1.Add.
Click for more:
'ms-help://MS.VSExpressCC.v80/dv_vsexpc...37B2"'

m_col1.Add(Num1, Clave)

'UPGRADE_WARNING: Couldn't resolve default property of object m_col2.Add.
Click for more:
'ms-help://MS.VSExpressCC.v80/dv_vsexpc...37B2"'

m_col2.Add(Num2, Clave)

End Sub

End Class



¿Porque me da ese error: //ERROR Value of type 'Integer' cannot be
converted to 'Microsoft.VisualBasic.Collection'; ??