Hi
The following code is used to copy the existing settings of a set of custom properties to a form. Hopefully will guide you to a starting point.
Sub LoadCustInfo()
Set swApp = CreateObject("SldWorks.Application"
' Attach to or open SolidWorks session
Set Model = swApp.ActiveDoc ' Grab the current document
frm1.Issue.Text = Model.CustomInfo2("", "Issue"

frm1.Drawingno.Text = Model.CustomInfo2("", "KETDDrg"

frm1.Desc1.Text = Model.CustomInfo2("", "Descline1"

frm1.desc2.Text = Model.CustomInfo2("", "Descline2"

frm1.desc3.Text = Model.CustomInfo2("", "Descline3"

frm1.cusdraw(0).Text = Model.CustomInfo2("", "Custdrg"

frm1.Datecomp(1).Text = Model.CustomInfo2("", "Date"

End Sub
Regards
Kevin
kevin@ketd.co.uk