<div>
You can control that functioin with HTML.<br />
Use a combination of onMouseOver and window.status<br />
<br />
<a href="http://home.sprintmail.com/~hines/photog.htm" rel="ugc">http://home.sprintmail.com/~hines/photog.htm</a><br />
<br />
&lt;A HREF=&quot;cowboy01.jpg&quot; onMouseOver=&quot;window.status<wbr />='Film=HP5<wbr />';return true&quot; onMouseOut=&quot;window.status=<wbr />''&quot;&gt;&lt;img src=&quot;s_cowby1.jpg&quot; width=72 &nbsp;height=100 alt=&quot;cowboy01.jpg&quot; border=0&gt;&lt;br&gt;Cowboy 1&lt;/A&gt;&lt;td&gt;<br />

</div>


You can control that functioin with HTML.
Use a combination of onMouseOver and window.status

http://home.sprintmail.com/~hines/photog.htm [http://home.sprintmail.com/~hines/photog.htm]

<A HREF="cowboy01.jpg" onMouseOver="window.status='Film=HP5';return true" onMouseOut="window.status=''"><img src="s_cowby1.jpg" width=72  height=100 alt="cowboy01.jpg" border=0><br>Cowboy 1</A><td>


<div>
On your form put webbrowser control and a statusbar<br />
and code like this.<br />
<br />
<br />
Private Sub Form_Load()<br />
StatusBar1.Style = sbrSimple<br />
WebBrowser1.GoHome<br />
End Sub<br />
<br />
Private Sub WebBrowser1_StatusTextChan<wbr />ge(ByVal Text As String)<br />
Form1.StatusBar1.SimpleTex<wbr />t = Text<br />
End Sub<br />
<br />

</div>


On your form put webbrowser control and a statusbar
and code like this.


Private Sub Form_Load()
StatusBar1.Style = sbrSimple
WebBrowser1.GoHome
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Form1.StatusBar1.SimpleText = Text
End Sub



<div>
Or to use with style sbrnormal...<br />
<br />
Private Sub Form_Load()<br />
StatusBar1.Style = sbrNormal<br />
WebBrowser1.GoHome<br />
End Sub<br />
<br />
Private Sub WebBrowser1_StatusTextChan<wbr />ge(ByVal Text As String)<br />
StatusBar1.Panels(1).Text = Text<br />
End Sub<br />
<br />

</div>


Or to use with style sbrnormal...

Private Sub Form_Load()
StatusBar1.Style = sbrNormal
WebBrowser1.GoHome
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
StatusBar1.Panels(1).Text = Text
End Sub



<div>
Triskelion, sorry, your answer is more for HTML writting then a VB project. jbil's comments is the correct answer I was looking for since it is VB code and not HTML code. <br />

</div>


Triskelion, sorry, your answer is more for HTML writting then a VB project. jbil's comments is the correct answer I was looking for since it is VB code and not HTML code.


<div>
<div class="content wysiwyg-content">
Using the IE WebBrowser in a VB project, how can I show the URL in the StatusBar when the mouse is over a link?
</div>
</div>


Using the IE WebBrowser in a VB project, how can I show the URL in the StatusBar when the mouse is over a link?

Show URL on mouseover w/WebBrowser

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.