新手 新手 求高手指点！！！亲！！

Private Sub Form_Load()
   'Call GetCommandLine
    DifficultLevel = 1
    Call Set_Frame
    Call Set_ZhiDaoYuImg_Visable
    'Timer_Error1.Enabled = True
    Call Set_Parameter
    Call Set_Btn_Visable
End SubPrivate Sub Set_Frame()                       '设置显示界面大小为 1024 * 768
    Frame1.Height = 1024
    Frame1.Width = 1280
    Frame1.Top = (Screen.Height / 15 - Frame1.Height) / 2
    Frame1.Left = (Screen.Width / 15 - Frame1.Width) / 2
End SubPrivate Sub Set_ZhiDaoYuImg_Visable()       '设置指导语
    ZhiDaoYuImg.Top = 0
    ZhiDaoYuImg.Left = 0
    ZhiDaoYuImg.Visible = True
    ZhiDaoYuImg.Picture = LoadPicture(App.Path & "\images\zy.jpg")
    ZhiDaoYuImg.Refresh
End SubPrivate Sub Set_Parameter()
    Select Case DifficultLevel                '设置相应参数
        Case 1
            Coeffcient4Mark = 1#
        Case 2
            Coeffcient4Mark = 1.2
        Case 3
            Coeffcient4Mark = 1.4
        Case 4
            Coeffcient4Mark = 1.6
        Case 5
            Coeffcient4Mark = 1.8
        Case 6
            Coeffcient4Mark = 2#
        Case 8
            Coeffcient4Mark = 2.4
        Case 10
            Coeffcient4Mark = 2.8
        Case 12
            Coeffcient4Mark = 3.2
    End Select
End SubPrivate Sub Set_Btn_Visable()               '设置按钮可见
    KSCmd.Left = 5280
    KSCmd.Top = 6120
    KSCmd.Visible = True
    KSCmd.Enabled = True
    YSJCmd.Left = 7800
    YSJCmd.Top = 6120
    YSJCmd.Visible = True
    YSJCmd.Enabled = True
    SoundCmd.Top = (Frame1.Height - SoundCmd.Height / 15 - 20) * 15
    SoundCmd.Left = 30 * 15
    SoundCmd.Picture = LoadPicture(App.Path & "\images\sound0.jpg")
    SoundCmd.Refresh
End Sub                为什么这几段运行以后窗体不能正常显示。显示的只有一个大黑框左上角一个小方框