Public Sub NUMPanelShow(x,y,PanelParent) '-PanelParent will hold the parent names to hange the panel to
ErrorLabel (Continue) '-Tese 3 lnes re sed to chek if the formlib object has already been added, if exists, continue
FL.New1("NUMPanelForm",B4PObject(1))
Continue:
NumPanel.Top=y
NumPanel.Left=x
For a=1 To 12 '-ties the button click events to one sub
AddEvent("Button"&a,Click,"CheckButton")
Next
FL.ChangeParent("NumKeyPanel.NUMPanel","form1") '-should change the parent, but even forcing the new parents name won't work
End Sub