找不到工程和库

Public Sub showtital()  ' 在formmain的mshflexgrid 上显示标题
   
   Dim i As Integer
   Dim width, text, Archives
   width = Array("600", "1000", "800", "800", "800", "800", "800", "800", "800", "800", "800", "1000")
   text = Array("序号", "俱乐部颜色", "开始时间", "焦点时间", "终止时间", "事件名称", "事件级别", "球员号码", "事件起因", "事件结果", "半场", "俱乐部名称")
   
With MSHFlexGrid1---------光标停这个显示"找不到工程和库"
   
    formMain.MSHFlexGrid1.Cols = 12
    formMain.MSHFlexGrid1.FixedCols = 1
    formMain.MSHFlexGrid1.FixedRows = 1
    
End With
For i = 0 To 11
    formMain.MSHFlexGrid1.ColWidth(i) = width(i)
    formMain.MSHFlexGrid1.TextMatrix(0, i) = text(i)
    formMain.MSHFlexGrid1.ColAlignment(i) = 1
Next i For i = 1 To formMain.MSHFlexGrid1.Rows - 1
    With MSHFlexGrid1
    
    formMain.MSHFlexGrid1.TextMatrix(i, 0) = i
    formMain.MSHFlexGrid1.RowHeight(i) = 300
    
    End With
    
Next iEnd Sub
我在做好了工程之后,重装了系统.就出现了这个问题,请问该怎么办