Nel form Topolino metti un bottone e incolla questo pezzettino di
codice. Ricorda di sostituire i nomi del form e dell'ocx corretti.
codice:
Private Sub Command1_Click()
Dim f As Form
Dim c As Control
For Each f In Forms
If f.Name = "Topolino" Then ' Nome del form che contiene il tuo OCX
For Each c In f.Controls
If c.Name = "MyUC" Then ' Nome dell'OCX
With c
Text1.Text = "Top = " & .Top & vbCrLf & _
"Left = " & .Left & vbCrLf & _
"Width = " & .Width & vbCrLf & _
"Height = " & .Height
End With
End If
Next c
End If
Next f
End Sub
Ciao,