Dim a As String        //定义一个判断变量,为了以后根据此变量来进行 编辑/浏览 模式切换

Private Sub Command1_Click()       //写入:将text1里面的DHTML语句写入到浏览器
web.Document.write Text1.Text
End Sub

Private Sub Command2_Click()      //读取:msgbox 出浏览器中原文件
MsgBox web.Document.All(0).outerHTML
End Sub

Private Sub Command3_Click()         //背景变红:浏览器背景变红,使用了浏览器的document对象
web.Document.bgColor = "Red"
End Sub

Private Sub Command4_Click()         //连接变黄:浏览器中所有超连接颜色变黄
For i = 0 To web.Document.links.Length - 1
web.Document.links(i).Style.Color = "yellow"
Next
End Sub

Private Sub Command5_Click()        //使用JS语句弹出对话框
If web.Document.parentwindow.confirm("是否要显示alert???") Then web.Document.parentwindow.alert "OK"
End Sub

Private Sub Command6_Click()       //使用VBS语句弹出对话框
web.Document.parentwindow.execScript "if msgbox ('是否要显示msgbox???',vbInformation+vbYesNo,'问题')=vbyes then msgbox '可以'", "vbs"
End Sub
Private Sub Command7_Click()        //浏览器的编辑和浏览模式自由切换
If a = "" Then
web.Document.execcommand "editMode"
a = "yes"
Else
web.Document.execcommand "BrowseMode"
a = ""
End If
End Sub

Private Sub Command8_Click()        //使用浏览器的window对象弹出新窗口,并在新窗口中写入浏览器的原文件
Set str1 = web.Document.parentwindow.Open()
str1.Document.Open
str1.Document.write web.Document.All(0).outerHTML
str1.Document.Close
End Sub

Private Sub Form_Load()        //窗口启动时使浏览器不为空白状态,使其显示“找不到服务器”页面
web.Navigate " "
End Sub

利用微软提供的这些控件本身做不了什么事情,应充分发挥其支持 html,css,js,vbs,vml,dhtml 的特性,才能制作出完美的网页编辑器程序

这就要求您本身这方面网络编程技术要高,才能充分的发挥VB6的作用,可见网络编程充分的扩展了VB6的功能,而document对象则是引用网络编程的接口