Contoh Menambahkan Attribut Pada Tag HTML - VB Code

Private Function AddPreWithClassName()
     Dim d As New MSHTML.HTMLDocument
     Dim l As HTMLMetaElement
     Dim x As HTMLHtmlElement
     
     d.body.innerHTML = txtPost.Text
    
     For Each l In d.All
         If l.tagName = "PRE" Then
             l.className = "code" '
         End If
     Next
     txtPost.Text = d.body.innerHTML
End Function