最近再弄毕业设计，奈何语言都忘得差不多了，再网上下了个现成的自己改改，运行出现错误了

一运行就一时编译错误
Private Sub Form_Load() 这个部分是黄色的
bordercolor1 = &HB08000
bordercolor2 = &HFFFFFF
Toolbar1.MouseIcon = LoadPicture(App.Path & "\hand.cur")
    UCtitlebar1（.Btnsize =)这是蓝的，括号自己加的 15
    UCtitlebar1.Height = 330
    UCtitlebar1.BackColor = &H8080FF
    Set UCtitlebar1.ImageCloseN = LoadPicture(App.Path & "\skin\close.bmp")
    Set UCtitlebar1.ImageMinN = LoadPicture(App.Path & "\skin\min.bmp")
    Set UCtitlebar1.ImageMaxN = LoadPicture(App.Path & "\skin\max.bmp")
    Set UCtitlebar1.ImageRestoreN = LoadPicture(App.Path & "\skin\restore.bmp")
    Set UCtitlebar1.ImageCloseD = LoadPicture(App.Path & "\skin\closedown.bmp")
    Set UCtitlebar1.ImageMinD = LoadPicture(App.Path & "\skin\mindown.bmp")
    Set UCtitlebar1.ImageMaxD = LoadPicture(App.Path & "\skin\maxdown.bmp")
    Set UCtitlebar1.ImageRestoreD = LoadPicture(App.Path & "\skin\restoredown.bmp")
    Set UCtitlebar1.BGpic = LoadPicture(App.Path & "\skin\Caption.bmp")
   UCtitlebar1.Convert Me
   
    UCtitlebar1.Top = 0
    UCtitlebar1.Left = 0