RE:Vertice inferior derecho
'Espero te ayude.........'
'picimg es un picturebox
'rtbpic es el richtextbox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.rtbPic.Controls.Add(picimg)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ctl As Control
Dim pic As PictureBox
For Each ctl In Me.rtbPic.Controls
If ctl.GetType Is GetType(PictureBox) Then
pic = ctl
MessageBox.Show("Izquierda: " & pic.Left.ToString() & vbCrLf & _
"Top : " & pic.Top.ToString() & vbCrLf & _
"Height : " & pic.Height.ToString() & vbCrLf & _
"Width : " & pic.Width.ToString() & vbCrLf & _
"Punto X : " & pic.Location.X.ToString() & vbCrLf & _
"Punto Y : " & pic.Location.Y.ToString())
End If
Next
End Sub