试试改成
If zct.Opened AndAlso forms.ActiveForm IsNot Nothing AndAlso forms.ActiveForm.Name = zct.Name Then
加好友 
发短信
Post By：2017/12/1 9:13:00 [显示全部帖子]
