Try
elm = wb.document.GetElementFromPoint(MousePosition)
Me.Text = elm.TagName
Dim Rect_Pen As New Pen(Color.Red, 50)
Dim rect As Rectangle = elm.ClientRectangle
Dim Area As Graphics
Area = Graphics.FromHwnd(wb.Handle)
Area.DrawRectangle(Rect_Pen, rect)
Catch ex As Exception
Me.Text = "bad"
End Try
Currently that is in a timer

New Topic/Question
Reply



MultiQuote





|