从树形视图删除商品类型
Public Sub DelTypeFromTvw(ByRef tvw As TreeView)
  Dim obj As clsGoodsType
  Dim i As Long
  
  '按照ID值来删除
  For i = 1 To tvw.Nodes.Count
    If tvw.Nodes(i).Key = "K" & obj.ID Then tvw.Nodes.Remove i
  Next
End Sub

上述代码运行是发生错误：实时错误"91"对象变量或with块变量未设置
请教高手！！

代码原工程发上来