Private Sub Command1_Click()
Set a = ie1.Document.getelementbyid("su")
aax = GetPosition(a)
aa = Split(aax, "|")
Picture1.Width = aa(2): Picture1.Height = aa(3)
Picture1.Move aa(0), aa(1)
End Sub
Private Sub Form_Load()
Me.Show
ie1.Navigate "www.baidu.com"
End Sub
Function GetPosition(xobj) As String
xLeft = 0: xTop = 0: GetPosition = xobj.offsetwidth & "|" & xobj.offsetheight
While Not (xobj Is ie1.Document.body)
xLeft = xLeft + xobj.offsetLeft
xTop = xTop + xobj.offsetTop
Set xobj = xobj.Parentnode
Wend
GetPosition = xLeft & "|" & xTop & "|" & GetPosition
End Function