Hola:

Quiero hacer un mini ejemplo sobre Overloads y no me fucniona.

Module Module1
 
    Sub Main()
        Dim Ejemplo1 As String = "AAAA"
        Dim Ejemplo2 As Integer = 123445
 
        testSub()
        testSub(Ejemplo1)
        testSub(Ejemplo2)
        testSub(Ejemplo1, Ejemplo2)
 
    End Sub
 
    Overloads Sub testSub()
        Debug.WriteLine("No pasa nada.")
    End Sub
 
    Overloads Sub testSub(ByVal i As String)
        Debug.WriteLine(i)
    End Sub
 
    Overloads Sub testSub(ByVal i As Integer)
        Debug.WriteLine(i.ToString)
    End Sub
 
    Overloads Sub testSub(ByVal i As String, ByVal j As Integer)
        Debug.WriteLine(i & " -- " & j.ToString)
    End Sub
End Module

Error    2    Uso no apropiado de la palabra clave 'Overloads' en un módulo.    C:\Users\Usuario\documents\visual studio 2010\Projects\Ejemplito\Ejemplito\Module1.vb    18    5    Ejemplito

A pesar de leer por aquí sobre Overloads, no me guío.

Salu2.

borren esto.