Visual Basic con objetos ..Parte 1

Hace rato que conozco el lenguaje Visual Basic, cuando iba al colegio,pero no me voy a poner nostálgico en este post, en resumen puedes manejar el mismo concepto de objetos de java en visual , en mi trabajo anterior aprendí lo básico de java.. y mas que eso me acostumbre a programar en ello, ahora me cuesta igual hacer cosas en Visual (también era mas cómodo programar en eclipse), pero encontré una forma de crear objetos con métodos, eventos y funciones y reutilizar este objeto cuando quiera transformándolo en un OCX :D, bueno empecemos voy a escribir super en resumen como hacerlo pero voy a adjuntar el código ya hecho, y un texto mas formal que encontré por internet, antes de empezar quiero decir que este "manual" no es para principiantes y tomare el hecho de que todos los que lean no van a quedar pegados preguntando que es un OnClick o cosas así, aunque creo que hice este post para mi y acordarme como era esto en fin.

Ok para empezar tienes que crear un proyecto nuevo en Visual, y elegir como tal un Control Activex. Luego de eso te aparecerá una expecie de formulario sin bordes ni boton minimizar,cerrar,maximizar. En el cual puedes cargar otros objetos que pueden ser cuadros de texto, botones etc, etc. El ejemplo que voy a dar va ser ultra básico, mas que nada para entender los atributos de un OCX o Clase y como agregar propiedades y funciones a ello.Haz doble click en el "formulario" para que hagamos un poco de código(ya te puedo tutear verdad?), listo?, :P , dentro de este fuente te encontraras con un evento Inicialize Private Sub UserControl_Initialize(), en este ejemplo no haremos nada con este evento, pero a modo de información este se ejecuta al colocar tu objeto en un formulario x.Ok los métodos que voy a agregar son de tipo GET y LET ( asi como estan los get y set de java ven ven!! que es igual, decian que estaba loco pero quien es loco ahora!! jajaja) cambiaremos un valor de una variable que sera seteada desde afuera (let), esta variable sera un Boolean. ok esto seria algo como esto:
Private Sub UserControl_Initialize()
End Sub
Public Property Get Valor() As Boolean
Valor = True
End Property
Public Property Let Valor(ByVal NuevoValor As Boolean)
PropertyChanged "Valor"
Valor = NuevoValor
End Property

Por hoy dejare solo esto para mas consulta tengo este documento y si existen dudas postean..