Private Sub Command1_Click()
Inet1.URL = "HTTP://www.wangjianran.com/"
qq = Inet1.OpenURL(Text2.Text)
Text1.Text = qq
Open "d:mm.txt" For Output As #1
Print #1, qq
Close #1
answer = MsgBox("已经保存网页源代码到d:mm.txt中", 0, "友情提示")
Print answer
End Sub

Private Sub Command2_Click()
End
End Sub