CLEAR ALL 
oForm = CREATEOBJECT("C_Form")
WITH oForm
    .Caption = "山狼的圖片測試"
    .WindowState = 2
    .MinButton = .F.
    .MaxButton = .F.
    .AutoCenter = .T.
    .Show
ENDWITH 
READ EVENTS
CLEAR ALL 
RETURN 

DEFINE CLASS C_Form AS Form 

    ADD OBJECT Image1 AS Image WITH Picture = "20150917_7c77d689921f492e1636kLCLvrxp8GiJ.gif", BackStyle = 1        && 老虎
    ADD OBJECT Image2 AS Image WITH Picture = "20150917_4cbe3a73caa6d3f431e7PoP3SWL2E8gi.gif", BackStyle = 0        && 鳳凰
    ADD OBJECT Image3 AS Image WITH Picture = "20150918_05a28456cb49453920cf6Lz6hErPPhx7.jpg.gif", BackStyle = 1    && 雀
    
    ADD OBJECT Timer1 AS Timer WITH Interval = 1000
    
    PROCEDURE Activate
        WITH This.Image1
            .Top = 5
            .Left = This.Width - .Width - 5
        ENDWITH 
        WITH This.Image2
            .Top = This.Height - .Height - 5
            .Left = 5
        ENDWITH 
        WITH This.Image3
            .Top = (This.Height - .Height) / 2
            .Left = (THis.Width - .Width) / 2
        ENDWITH 
    ENDPROC 

    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC 
    
ENDDEFINE 

把21楼的代码复制黏贴到一个prg文件中运行即可，不用写什么表单。

用21楼的，还是会挡住了。
PROCEDURE timer1.timer
  Thisform.Image1.left=Thisform.Image1.left-10
  Thisform.Image1.top=Thisform.Image1.top+7
ENDPROC

你不看前面帖子的