dim oMaster
dim oForm

set oMaster = CreateObject("PrintMaster.PrintMaster.1")

set oForm = CreateObject("Form.Form.1")

oForm.Name = "4444"

oForm.ServerName = "\\sambaserver.domain.com"

oForm.SetSize 800,800
oForm.SetImageableArea 100,100,200,200

oMaster.FormAdd oForm