Module GlobalVars

  Public Const Version As String = "Version 1.30"

  Public CurrentSlide As SlideType = Nothing
  Public SelectedSlide As SlideType = Nothing
  Public testing As Boolean = False
  Public WsFactor As Double
  Public BackOneSlide As Boolean
  Public ScreenSize As Size
  Public Paused As Boolean
  Public PauseOnceFlag As Boolean
  Public ShowCaption As Boolean = False
  Public CaptionFont As String = "Bookman Old Style"
  Public Modified As Boolean = False
  Public CurrentFilename As String = "SlideShow.mgl"

End Module
