实时错误13类型不匹配

Question

 sbStatusBar.Panels(1).AutoSize = sbrContents
  sbStatusBar.Panels(1) = mytag
   Set pnlX = sbStatusBar.Panels.Add
  pnlX.AutoSize = sbrContents
  pnlX.text = "当前操作员： " & czy
  Set pnlX = sbStatusBar.Panels.Add
  pnlX.Style = sbrDate
  Set pnlX = sbStatusBar.Panels.Add
   pnlX.Style = sbrTime
  '设置图形按钮的初始位置
  Image1(0).Left = 4000: Image1(0).Top = 2625
  '将VB资源管理器中的字符串添加到菜单中
  On Error Resume Next
  Dim ctl As Control, sCtlType As String
  For Each ctl In Me.Controls
    sCtlType = TypeName(ctl)
    If sCtlType = "Menu" Then
       ctl.Caption = LoadResString(CInt(ctl.Caption))
    End if
 "ctl.Caption = LoadResString(CInt(ctl.Caption))"这个出错

Answer 1

LoadResString使用的问题，这个函数自能读回字符串