>>956
Private Sub Form_Load()
  WebBrowser1.Navigate "http://www2.2ch.net/2ch.html"
End Sub
Private Sub Form_Click()
  Dim Doc As Object
  Set Doc = WebBrowser1.Document.frames(0).Document
End Sub