主题：关于点击开发功能暂时隐藏的窗口提示出错的问题，

With  CurrentTable
    'Dim Str1  As  String =  "  当前登录用户:" & "【" & User.Name & "】"
    'Str1 = Str1 & "         正操作表名为:" & "【" & .Name & "】" & "   总行数:"
    'Str1 = Str1 & .Rows.Count &  "  当前行:" & (.Position + 1)
    'Str1 = Str1 &  "                      今天是:" & Date.now & "【系统日期】"
     'Dim lb As WinForm.Label = Forms("底部共有").Controls("欢迎使用")    
    'lb.Text =  Str1 

'End  With

没有用FOX的状态栏自己建立了一个底部共有窗口，这些代码放在项目时间的系统空闲的那个指令下面，正常使用时没有问题，当点击开发功能时比如点击窗口管理的时候，底部共有窗口会自动隐藏起来，此时这些代码就因为没有底部窗口提示错误，提示的错误就是不存在底部共有窗口，这个仅仅是在点击开发功能的时候会出错，正常使用没问题的，怎么改代码，即使开发的时候窗口不显示的时候不提示那个错误呢？

判断一下窗口是否存在不就行了？

If Forms("底部共有").Opened Then

End If