hola fijate esto puede que te sirva.
Private Sub Command1_Click()
On Error Resume Next
With Label1
.Caption = ""
.AutoSize = True
.LinkTopic = "IExplore|WWW_GetWindowInfo"
.LinkItem = &HFFFFFFFF
.LinkMode = 2
.LinkRequest
End With
DoEvents
With Label2
.Caption = ""
.AutoSize = True
.LinkTopic = "Firefox|WWW_GetWindowInfo"
.LinkItem = &HFFFFFFFF
.LinkMode = 2
.LinkRequest
End With
End Sub
Saludos