请问用VB如何获取浏览器的标题

添加WebBrowser1控件
示例如下
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Me.Caption = Text
End Sub

http://www.mndsoft.com/blog/article.asp?id=14
可能这个有用对你
可能要注册才能下载,
地址是
http://www.mndsoft.com/downfiles/Changecaption.rar

调用 api函数