Article ID: 195755
Article Last Modified on 5/12/2003
Command1.Parent.Left = 10
Dim oTmp As Object Set oTmp = Command1.Parent oTmp.Left = 10
Option Explicit
Private Sub Command1_Click()
MsgBox Command1.Parent.ScaleX(12)
End Sub
Private Sub Command2_Click()
Dim oTmp As Object
Set oTmp = Command2.Parent
MsgBox oTmp.ScaleX(12)
End Sub
Public Function ScaleX(Width As Single) As Single
' You need to expose the ScaleX function so that it
' can be called from the Parent property.
ScaleX = UserControl.ScaleX(Width)
End Function
Private Sub UserControl_Initialize()
Command1.Caption = "Early-Bound"
Command2.Caption = "Late-Bound"
End Sub
Keywords: kbbug kbcode KB195755