How to get Security Lock in webbrowser control?

if you go to a https site, how do you get the security lock in the status bar?
also how do you get the progress bar in the status bar?

Here's some code for detecting a secure web-site. You'll need to alter it a little to display your own security icon in the status bar.

Progress bar in Status bar: You can either draw the progress bar over a panel in the status bar and deal with it as a seperate control, or make the progress bar a child of the status bar.

VB Code:

Private Sub WebBrowser1_SetSecureLockIcon(ByVal SecureLockIcon As Long)
    If SecureLockIcon <> 0 Then MsgBox "This site is secure"
End Sub