Public Sub NextGraphicView( _
   ByRef strTitle As String, _
   ByRef strFullName As String, _
   ByRef fileType As Integer, _
   ByRef hWnd As ULong, _
   ByRef bActive As ULong, _
   ByRef bDirty As ULong _
)