Sub VFPAdvance()
   Set OVFP = CreateObject("VisualFoxpro.Application")
   OVFP.DOCMD ("gddate=date()") ' Initialising gddate
   OVFP.DOCMD ("do form frmpanlabour")
'   OVFP.docmd ("Frmpanlabour.visible=.t.")
   OVFP.Visible = True
End Sub