Dim i As Integer
For i = 0 To WebBrowser1.Document.All.length - 1
If WebBrowser1.Document.All(i).tagName = "IMG" Then
If InStr(WebBrowser1.Document.All(i).Src, "/img/common/bt_loout.jpg") > 0 Then
WebBrowser1.Document.All(i).Click
Exit For
End If
End If
Next