DHTML edit control

Som jeg kan forstår dit problem så må det være sådan..


'Tilføj en Checkbox og så koden her...
Private Sub Check1_Click()
  With Check1
      If .Value = 1 Then
        'Her skriver du den kode som laver din tekst til html
        MsgBox "HTML"
          Else
        'Her skriver du den kode som laver din html til tekst
        MsgBox "TEKST"
      End If
  End With
End Sub


men det er nok ikke det du mener vel... ;)

Gid det var så vel.
Det jeg mener er der hvor du skriver:
'Her skriver du den kode som laver din html til tekst
'Her skriver du den kode som laver din tekst til html
^^^^^^^^^^^^^^(hvordan gør man lige det?)^^^^^^^^^^^^

function setMode(bMode){
var sTmp;
isHTMLMode = bMode;
if (isHTMLMode){sTmp=idContent.document.body.innerHTML;idContent.document.body.innerText=sTmp;}
else {sTmp=idContent.document.body.innerText;idContent.document.body.innerHTML=sTmp;}
}
^^ sådan kan det gøres i javascript så på en eller anden måde kan det vel gøres.. men i vb ?

Kan godt finde den der hedder 'controlename'.documentHTML men ikke nogen text :(

If Knap.Value Then
'klarede det ved at lave en normal textbox med samme størrelse som DHTML controle og gøre den usynlig og bruge følgene kode:


Text1.Text = edit.documentHTML
edit.viseble = false
Text1.viseble = true

Else

edit.documentHTML = Text1.Text
Text1.Viseble = False
edit.viseble = True

End If