新手 新手 求！亲！

新手 新手 求高手指点！！！亲！！
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 Sub

Private 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 Sub

Private Sub Set_ZhiDaoYuImg_Visable() '设置指导语
  ZhiDaoYuImg.Top = 0
  ZhiDaoYuImg.Left = 0
  ZhiDaoYuImg.Visible = True
  ZhiDaoYuImg.Picture = LoadPicture(App.Path & "\images\zy.jpg")
  ZhiDaoYuImg.Refresh
End Sub

Private 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 Sub

Private 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 为什么这几段运行以后窗体不能正常显示。显示的只有一个大黑框左上角一个小方框

[解决办法]
自己单步调试看看。
再说，你控件怎么布局的不说，也不好帮你