OCX - Özellik Eklemek

Public Property Get Metin() As String
Metin = RichTextBox1.Text
End Property

Public Property Let Metin(ByVal vNewValue As String)
RichTextBox1.Text = vNewValue
End Property