trying to get a value out of an Activex control

[Keith_VB6]

Instead of an Event, try...

'In the UserControl
Public Function GetCalc() as long
    GetCalc = Val(Text1.Text) * Val(Text2.Text)
End Function
 
'In the Program
Private Sub Command1_Click()
    text1.text=UserControl1.GetCalc()
End Sub

Does the same thing. Just less code.

BTW... What does the program do ? Is it just a test app or something in particular ?