Imagem No Richtextbox

[Fernanda S]

Estou tentando inserir imagem em um RichTextBox. Encontrei em vários lugares este exemplo:

Private Sub Command1_Click()

Dim strOpen As String

CommonDialog1.ShowOpen

strOpen = CommonDialog1.FileName

rtfdados.OLEObjects.Add , , , strOpen

End Sub

Fiz o teste com este código, mas está dando o seguinte erro: "ActiveX component can't create object"

Alguém saberia me dizer porque dá este erro, e o que posso fazer para inserir a imagem?

Obrigada,

Fernanda

[kuroi]

seria isso?

Private Sub Command1_Click()
Dim strOpen As String
CommonDialog1.ShowOpen
strOpen = CommonDialog1.FileName
rtfdados.OLEObjects.Add , , strOpen
End Sub[/code]

[Guest Fernanda S]

Isso... Tentei usar este código, mas está dando aquele erro que eu disse...

[kuroi]

tipo, o que eu passei está diferente do seu:

rtfdados.OLEObjects.Add , , strOpen

o meu tem uma virgula a menos...

continua o mesmo erro??

[William Rodrigues]

Salve!

Você adicionou o controle CommonDialog?

Abraços,

William Rodrigues

[Diogovb6]

'Primeiro adicione os componentes

'Project / Components.../ Microsoft Common Dialog Control

'Project / Components.../Microsoft RichtextBox Control

'depois coloque um Botao e um RichtextBox no formulario

Adicione o código no Botão EX:

Private Sub Commond1_Click()

dim FileImage as String

commondialog1.ShowOpen

FIleImage = commondialog1.Filename

Richtextbox1.OleObjects.Add , , FileImage

End Sub

Ajudou??? :D