''''Un ejemplo espero sirva
Dim i As Integer
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ctl As Control
For Each ctl In Me.Controls
ComboBox1.Items.Add(ctl.Name & " (" & ctl.Location.X.ToString & "," & ctl.Location.Y.ToString & ") SIZE=" & ctl.Size.Width.ToString & "," & ctl.Size.Height.ToString)
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim miposi1, miposi2, miposic, pX, pY, sW, sH As Integer
Dim micad, mincad As String
miposi1 = InStr(ComboBox1.Text, "(", CompareMethod.Text)
micad = Mid(ComboBox1.Text, miposi1 + 1)
miposi2 = InStr(micad, ")", CompareMethod.Text)
micad = Microsoft.VisualBasic.Left(micad, miposi2 - 1)
miposic = InStr(micad, ",", CompareMethod.Text)
If miposic > 0 Then
pX = Microsoft.VisualBasic.Left(micad, miposic - 1) + 4
pY = Microsoft.VisualBasic.Right(micad, micad.Length - (miposic))
miposic = InStr(ComboBox1.Text, "=", CompareMethod.Text)
mincad = Mid(ComboBox1.Text, miposic + 1)
miposic = InStr(mincad, ",", CompareMethod.Text)
sW = (Microsoft.VisualBasic.Left(mincad, miposic - 1) + 4) / 2
sH = (Microsoft.VisualBasic.Right(mincad, mincad.Length - (miposic))) / 2
Me.Cursor.Position = New Point(Me.Left + pX + sW, Me.Top + 30 + pY + sH)
End If
End Sub