Private Sub EnableEditing()
Dim Elem As HtmlElement = WebBrowser1.Document.GetElementById("div1")
If (Not Elem Is Nothing) Then
If (Elem.ClientRectangle.Width < 200) Then
Elem.SetAttribute("width", "200px")
End If
If (Elem.ClientRectangle.Height < 50) Then
Elem.SetAttribute("height", "50px")
End If
Elem.SetAttribute("contentEditable", "true")
Elem.Focus()
End If
End Sub