crt.Screen.WaitForCursor
If crt.Window.State = 0 Or crt.Window.State = 2 Then
      'crt.Window.Show 1
  msgbox"yes"
else
  msgbox"no"
End If