I Have find the code!
Dim elem As HtmlElement = WebBrowser1.Document.GetElementById("im_sec")
Dim cap As Object = WebBrowser1.Document.DomDocument.bOdy.createControlRange()
cap.Add(elem.DomElement)
cap.execCommand("Copy")
PictureBox1.Image = My.Computer.Clipboard.GetImage