实时错误13类型不匹配

[aitianxueerjia]

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))"这个出错

[贝隆]

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