做了个画折线图的程序，在VF主窗口下调用，窗口在调用表单上面，显示符合我的要求，但在自定义的顶层表单里调用的时候，就显示不出来了，应该是被覆盖了。SHOWWINDOW在运行时不让改，ALWAYSONTOP设置了也没用，请各位大拿指点指点。
下面是PRG内容：

PROCEDURE QIUZTX
PARAMETERS MEMQIUZGZQ,MEMCKTOP,MEMCKLEFT
QFORM = CREATEOBJECT('Form')  
QFORM.TOP=MEMCKTOP
QFORM.LEFT=MEMCKLEFT
QFORM.ALWAYSONTOP=.T.
QFORM.WIDTH = 426
QFORM.HEIGHT = 200
QFORM.BACKCOLOR=RGB(0,0,0)
QFORM.BORDERSTYLE=1
QFORM.CLOSABLE=.F.
QFORM.MAXBUTTON=.F.
QFORM.MINBUTTON=.F.
QFORM.TITLEBAR=0
QFORM.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')  
QFORM.ADDOBJECT('LABEL1','LABEL')
QFORM.LABEL1.CAPTION='QIUZ(14,6)'
QFORM.LABEL1.TOP=2
QFORM.LABEL1.LEFT=5
QFORM.LABEL1.HEIGHT=22
QFORM.LABEL1.WIDTH=100
QFORM.LABEL1.BACKSTYLE=0
QFORM.LABEL1.FORECOLOR=RGB(255,255,255)
QFORM.LABEL1.BACKCOLOR=RGB(0,0,0)
QFORM.LABEL1.VISIBLE=.T.
 Dimension MEMZUOB[60,8]
 MEMXS=7
   STORE 0 TO MEMZUOB
   SELECT &MEMQIUZGZQ
   GO BOTT
   MEMQIUZJL1=RECNO()
   SKIP -59
   MEMQIUZJL=RECNO()
   GO MEMQIUZJL
   FOR MEMLSJS=1 TO 60 STEP 1
      MEMZUOB[MEMLSJS,1]=MEMLSJS*MEMXS
      MEMZUOB[MEMLSJS,2]=200-INT(QIUZD*2)
      SKIP
   NEXT
   GO MEMQIUZJL
   FOR MEMLSJS=1 TO 60 STEP 1
      MEMZUOB[MEMLSJS,3]=MEMLSJS*MEMXS
      MEMZUOB[MEMLSJS,4]=200-INT(QIUZI*2)
      SKIP
   NEXT
   GO MEMQIUZJL
   FOR MEMLSJS=1 TO 60 STEP 1
      MEMZUOB[MEMLSJS,5]=MEMLSJS*MEMXS
      MEMZUOB[MEMLSJS,6]=200-INT(QIUZA*2)
      SKIP
   NEXT
   GO MEMQIUZJL
   FOR MEMLSJS=1 TO 60 STEP 1
      MEMZUOB[MEMLSJS,7]=MEMLSJS*MEMXS
      MEMZUOB[MEMLSJS,8]=200-INT(QIUZR*2)
      SKIP
   NEXT
QFORM.AddObject('lin1','Line')
QFORM.lin1.Top =  200-100
QFORM.lin1.Left = 10
QFORM.lin1.Width = 426
QFORM.lin1.Height = 0
QFORM.LIN1.BorderStyle = 2
QFORM.LIN1.VISIBLE=.T.
QFORM.AddObject('lin2','Line')
QFORM.lin2.Top =  200-60
QFORM.lin2.Left = 10
QFORM.lin2.Width = 426
QFORM.lin2.Height = 0
QFORM.LIN2.BorderStyle = 2
QFORM.LIN2.VISIBLE=.T.


QFORM.cmdCmndBtn1.Visible =.T.  

QFORM.Show
QFORM.FORECOLOR=RGB(255,255,255)
FOR MEMLSJS=2 TO 60
QFORM.Line(MEMZUOB(MEMLSJS-1,1),MEMZUOB(MEMLSJS-1,2),MEMZUOB(MEMLSJS,1),MEMZUOB(MEMLSJS,2))
NEXT
QFORM.FORECOLOR=RGB(255,255,0)
FOR MEMLSJS=2 TO 60
QFORM.Line(MEMZUOB(MEMLSJS-1,3),MEMZUOB(MEMLSJS-1,4),MEMZUOB(MEMLSJS,3),MEMZUOB(MEMLSJS,4))
NEXT
QFORM.FORECOLOR=RGB(255,0,255)
FOR MEMLSJS=2 TO 60
QFORM.Line(MEMZUOB(MEMLSJS-1,5),MEMZUOB(MEMLSJS-1,6),MEMZUOB(MEMLSJS,5),MEMZUOB(MEMLSJS,6))
NEXT
QFORM.FORECOLOR=RGB(0,255,0)
FOR MEMLSJS=2 TO 60
QFORM.Line(MEMZUOB(MEMLSJS-1,7),MEMZUOB(MEMLSJS-1,8),MEMZUOB(MEMLSJS,7),MEMZUOB(MEMLSJS,8))
NEXT

READ EVENTS  
DEFINE CLASS cmdMyCmndBtn1 AS CommandButton  
   Caption = '\<Quit'  
   Cancel = .T.  
   Left = 5
   Top = 175  
   Height = 25  
   PROCEDURE Click
      CLEAR EVENTS  
ENDDEFINE

原来就有，谢谢。

试了，两个问题：1、只剩两条横线，折线图画不出来了，2、退不出去了。2应该可以解决，1我在尝试直接重新做表单完成时，就出现了，还没找到原因和解决办法

先谢吹版指点，我是从DBASE用上来的，真没用过类，网上资源也被百度搞的不象以前好找了，能厚颜请吹版或哪位大拿费心给个针对性的实例吗？

这太太太感谢了！