使用时未使用的局部变量编译器错误

Question

我在这里有一个奇怪的。我收到编译错误＆＃34;未使用的局部变量＆＃34;对于使用的变量！

If bUpdate Then
   Dim fclm As New frmNewClaim : GetOpenForm(fclm)
   With fclm ' <-------------------
       .something = x
   End With
 End If

如果表单已经打开，子GetOpenForm就会附加到表单

我在应用程序的其他部分中没有被抱怨的完全相同的代码（Dim / With）。我尝试过重新编译，但错误仍然存​​在。

这里发生了什么？