Option Explicit
Dim WithEvents C As RichTextLib.RichTextBox
 
Private Sub C_Click()
  MsgBox "Click"
End Sub
 
Private Sub Form_Load()
  Set C = Form1.Controls.Add("RICHTEXT.RichTextCtrl.1", "RTF1")
  C.Move 0, 0, 500, 500
  C.Visible = True
End Sub