Índice

Solución 6.9 Utilizar la clase creada

Sub ProbarClase()  
    Dim POPpaisPacifico1 As New POP 
    Dim POPpaisPacifico2 As New POP 
    Dim POPpaisPacifico3 As New POP 
    ’ sintaxis de los accesores y modificadores propios de VBA 
    POPpaisPacifico1.POP = "Polinesia Francesa" 
    MsgBox "Ahora se llama " & POPpaisPacifico1.POP 
    POPpaisPacifico2.POP = "Australia"  
    MsgBox "Ahora se llama " ...