工具条菜单项没有调用方法，如何使用后台线程进行更新

Question

IntelliSense 声明工具条菜单项没有调用方法。我得到红色的波浪线。如何在没有委托/调用的情况下进行更新？

Private Delegate Sub AppendTSMIDelegate(ByVal TMSI As ToolStripMenuItem, ByVal b As Boolean)
Private Sub AppendTSMI(ByVal TSMI As ToolStripMenuItem, ByVal b As Boolean)
If **TSMI.InvokeRequired** Then
TSMI.Invoke(New AppendTSMIDelegate(AddressOf AppendTSMI), New Object() {TSMI, b})
Else
'TSMI.
End If

Answer 1

答案是检查工具上的调用状态。经过深思熟虑和阅读，终于给了我答案！

Private Sub AppendTSMI(ByVal TSMI As ToolStripMenuItem, ByVal b As Boolean)
Dim ST1 As StatusStrip = StatusStrip1
If ST1.InvokeRequired Then
ST1.Invoke(New AppendTSMIDelegate(AddressOf AppendTSMI), New Object() {TSMI, b})
Else
TSMI.Checked = b
End If
End Sub