VB activeX test

PARAM NAME="_ExtentX" VALUE="8467">
PARAM NAME="_ExtentY" VALUE="6350">
PARAM NAME="test1" VALUE="aaa">


'bas

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
test1 = PropBag.ReadProperty("test1", "default value")
End Sub