vb6parse 1.0.1

---
source: vb6parse/tests/form.rs
expression: form_file
---
form:
  Form:
    name: FormScreenCapture
    tag: ""
    index: 0
    properties:
      appearance: ThreeD
      auto_redraw: Manual
      back_color:
        RGB:
          red: 192
          green: 192
          blue: 192
      border_style: Sizable
      caption: Screen Capture Demo - www.tannerhelland.com
      client_height: 3600
      client_left: 60
      client_top: 345
      client_width: 6675
      clip_controls: Clipped
      control_box: Included
      draw_mode: CopyPen
      draw_style: Solid
      draw_width: 1
      enabled: Enabled
      fill_color:
        System:
          index: 0
      fill_style: Transparent
      font:
        name: MS Sans Serif
        size: 8
        charset: 0
        weight: 400
        underline: false
        italic: false
        strikethrough: false
      font_transparent: Transparent
      fore_color:
        System:
          index: 18
      has_dc: HasContext
      height: 240
      help_context_id: 0
      icon: ~
      key_preview: false
      left: 0
      link_mode: None
      link_topic: Form1
      max_button: Included
      mdi_child: false
      min_button: Included
      mouse_icon: ~
      mouse_pointer: Default
      moveable: Moveable
      negotiate_menus: true
      ole_drop_mode: None
      palette: ~
      palette_mode: HalfTone
      picture: ~
      right_to_left: LeftToRight
      scale_height: 240
      scale_left: 0
      scale_mode: Twip
      scale_top: 0
      scale_width: 445
      show_in_taskbar: Show
      start_up_position: WindowsDefault
      top: 0
      visible: Visible
      whats_this_button: Excluded
      whats_this_help: F1Help
      width: 240
      window_state: Normal
    controls:
      - name: Label2
        tag: ""
        index: 0
        kind:
          Label:
            properties:
              alignment: LeftJustify
              appearance: ThreeD
              auto_size: Fixed
              back_color:
                System:
                  index: 15
              back_style: Opaque
              border_style: None
              caption: Screen Capture Demo -- www.tannerhelland.com
              data_field: ""
              data_format: ""
              data_member: ""
              data_source: ""
              drag_icon: ~
              drag_mode: Manual
              enabled: Enabled
              fore_color:
                RGB:
                  red: 255
                  green: 255
                  blue: 255
              height: 210
              left: 120
              link_item: ""
              link_mode: None
              link_timeout: 50
              link_topic: ""
              mouse_icon: ~
              mouse_pointer: Default
              ole_drop_mode: None
              right_to_left: LeftToRight
              tab_index: 1
              tool_tip_text: ""
              top: 240
              use_mnemonic: true
              visible: Visible
              whats_this_help_id: 0
              width: 3615
              word_wrap: NonWrapping
      - name: Label1
        tag: ""
        index: 0
        kind:
          Label:
            properties:
              alignment: LeftJustify
              appearance: ThreeD
              auto_size: Fixed
              back_color:
                System:
                  index: 15
              back_style: Opaque
              border_style: None
              caption: Screen Capture Demo -- www.tannerhelland.com
              data_field: ""
              data_format: ""
              data_member: ""
              data_source: ""
              drag_icon: ~
              drag_mode: Manual
              enabled: Enabled
              fore_color:
                System:
                  index: 18
              height: 210
              left: 135
              link_item: ""
              link_mode: None
              link_timeout: 50
              link_topic: ""
              mouse_icon: ~
              mouse_pointer: Default
              ole_drop_mode: None
              right_to_left: LeftToRight
              tab_index: 0
              tool_tip_text: ""
              top: 255
              use_mnemonic: true
              visible: Visible
              whats_this_help_id: 0
              width: 3615
              word_wrap: NonWrapping
    menus: []
objects: []
version:
  major: 5
  minor: 0
attributes:
  name: FormScreenCapture
  global_name_space: Local
  creatable: "False"
  predeclared_id: "True"
  exposed: "False"
  description: ~
  ext_key: {}
cst:
  root:
    kind: Root
    children:
      - kind: EndOfLineComment
        text: "'***************************************************************************"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'Copyright 2018 by Tanner Helland"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "' www.tannerhelland.com"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'Documentation for this project can be found at https://tannerhelland.com/code/"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'The source code in this project is licensed under a Simplified BSD license."
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "' For more information, please review LICENSE.md at https://github.com/tannerhelland/thdc-code/"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'If you find this code useful, please consider a small donation to https://www.paypal.me/TannerHelland"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'***************************************************************************"
      - kind: Newline
        text: "\r\n"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'This gives us the hWnd (window handle) of the screen"
      - kind: Newline
        text: "\r\n"
      - kind: DeclareStatement
        children:
          - kind: PrivateKeyword
            text: Private
          - kind: Whitespace
            text: " "
          - kind: DeclareKeyword
            text: Declare
          - kind: Whitespace
            text: " "
          - kind: FunctionKeyword
            text: Function
          - kind: Whitespace
            text: " "
          - kind: Identifier
            text: GetDesktopWindow
          - kind: Whitespace
            text: " "
          - kind: LibKeyword
            text: Lib
          - kind: Whitespace
            text: " "
          - kind: StringLiteral
            text: "\"user32\""
          - kind: Whitespace
            text: " "
          - kind: ParameterList
            children:
              - kind: LeftParenthesis
                text: (
              - kind: RightParenthesis
                text: )
          - kind: Whitespace
            text: " "
          - kind: AsKeyword
            text: As
          - kind: Whitespace
            text: " "
          - kind: LongKeyword
            text: Long
          - kind: Newline
            text: "\r\n"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'This assigns an hDC (device context handle) from an hWnd"
      - kind: Newline
        text: "\r\n"
      - kind: DeclareStatement
        children:
          - kind: PrivateKeyword
            text: Private
          - kind: Whitespace
            text: " "
          - kind: DeclareKeyword
            text: Declare
          - kind: Whitespace
            text: " "
          - kind: FunctionKeyword
            text: Function
          - kind: Whitespace
            text: " "
          - kind: Identifier
            text: GetDC
          - kind: Whitespace
            text: " "
          - kind: LibKeyword
            text: Lib
          - kind: Whitespace
            text: " "
          - kind: StringLiteral
            text: "\"user32\""
          - kind: Whitespace
            text: " "
          - kind: ParameterList
            children:
              - kind: LeftParenthesis
                text: (
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: hWnd
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: RightParenthesis
                text: )
          - kind: Whitespace
            text: " "
          - kind: AsKeyword
            text: As
          - kind: Whitespace
            text: " "
          - kind: LongKeyword
            text: Long
          - kind: Newline
            text: "\r\n"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'BitBlt lets us draw an image from a hDC to another hDC (in our case, from an hDC of the screen capture to the hDC of a VB picture box)"
      - kind: Newline
        text: "\r\n"
      - kind: DeclareStatement
        children:
          - kind: PrivateKeyword
            text: Private
          - kind: Whitespace
            text: " "
          - kind: DeclareKeyword
            text: Declare
          - kind: Whitespace
            text: " "
          - kind: FunctionKeyword
            text: Function
          - kind: Whitespace
            text: " "
          - kind: Identifier
            text: BitBlt
          - kind: Whitespace
            text: " "
          - kind: LibKeyword
            text: Lib
          - kind: Whitespace
            text: " "
          - kind: StringLiteral
            text: "\"gdi32\""
          - kind: Whitespace
            text: " "
          - kind: ParameterList
            children:
              - kind: LeftParenthesis
                text: (
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: hDC
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: Comma
                text: ","
              - kind: Whitespace
                text: " "
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: x
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: Comma
                text: ","
              - kind: Whitespace
                text: " "
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: y
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: Comma
                text: ","
              - kind: Whitespace
                text: " "
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: nWidth
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: Comma
                text: ","
              - kind: Whitespace
                text: " "
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: nHeight
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: Comma
                text: ","
              - kind: Whitespace
                text: " "
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: hSrcDC
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: Comma
                text: ","
              - kind: Whitespace
                text: " "
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: xSrc
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: Comma
                text: ","
              - kind: Whitespace
                text: " "
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: ySrc
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: Comma
                text: ","
              - kind: Whitespace
                text: " "
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: opCode
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: RightParenthesis
                text: )
          - kind: Whitespace
            text: " "
          - kind: AsKeyword
            text: As
          - kind: Whitespace
            text: " "
          - kind: LongKeyword
            text: Long
          - kind: Newline
            text: "\r\n"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'ReleaseDC is used to free the hDC we generate for the screen capture."
      - kind: Newline
        text: "\r\n"
      - kind: DeclareStatement
        children:
          - kind: PrivateKeyword
            text: Private
          - kind: Whitespace
            text: " "
          - kind: DeclareKeyword
            text: Declare
          - kind: Whitespace
            text: " "
          - kind: FunctionKeyword
            text: Function
          - kind: Whitespace
            text: " "
          - kind: Identifier
            text: ReleaseDC
          - kind: Whitespace
            text: " "
          - kind: LibKeyword
            text: Lib
          - kind: Whitespace
            text: " "
          - kind: StringLiteral
            text: "\"user32\""
          - kind: Whitespace
            text: " "
          - kind: ParameterList
            children:
              - kind: LeftParenthesis
                text: (
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: hWnd
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: Comma
                text: ","
              - kind: Whitespace
                text: " "
              - kind: ByValKeyword
                text: ByVal
              - kind: Whitespace
                text: " "
              - kind: Identifier
                text: hDC
              - kind: Whitespace
                text: " "
              - kind: AsKeyword
                text: As
              - kind: Whitespace
                text: " "
              - kind: LongKeyword
                text: Long
              - kind: RightParenthesis
                text: )
          - kind: Whitespace
            text: " "
          - kind: AsKeyword
            text: As
          - kind: Whitespace
            text: " "
          - kind: LongKeyword
            text: Long
          - kind: Newline
            text: "\r\n"
      - kind: Newline
        text: "\r\n"
      - kind: EndOfLineComment
        text: "'This sample project copies the screen when the form loads; you could also place this code in a command button (or any other input)"
      - kind: Newline
        text: "\r\n"
      - kind: SubStatement
        children:
          - kind: PrivateKeyword
            text: Private
          - kind: Whitespace
            text: " "
          - kind: SubKeyword
            text: Sub
          - kind: Whitespace
            text: " "
          - kind: Identifier
            text: Form_Load
          - kind: ParameterList
            children:
              - kind: LeftParenthesis
                text: (
              - kind: RightParenthesis
                text: )
          - kind: Newline
            text: "\r\n"
          - kind: StatementList
            children:
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: EndOfLineComment
                text: "'First, minimize this window"
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: AssignmentStatement
                children:
                  - kind: MemberAccessExpression
                    children:
                      - kind: MeKeyword
                        text: Me
                      - kind: PeriodOperator
                        text: "."
                      - kind: Identifier
                        text: WindowState
                  - kind: Whitespace
                    text: " "
                  - kind: EqualityOperator
                    text: "="
                  - kind: Whitespace
                    text: " "
                  - kind: IdentifierExpression
                    children:
                      - kind: Identifier
                        text: vbMinimized
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: EndOfLineComment
                text: "'Get the hWnd of the screen"
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: DimStatement
                children:
                  - kind: DimKeyword
                    text: Dim
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: scrHwnd
                  - kind: Whitespace
                    text: " "
                  - kind: AsKeyword
                    text: As
                  - kind: Whitespace
                    text: " "
                  - kind: LongKeyword
                    text: Long
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: AssignmentStatement
                children:
                  - kind: IdentifierExpression
                    children:
                      - kind: Identifier
                        text: scrHwnd
                  - kind: Whitespace
                    text: " "
                  - kind: EqualityOperator
                    text: "="
                  - kind: Whitespace
                    text: " "
                  - kind: IdentifierExpression
                    children:
                      - kind: Identifier
                        text: GetDesktopWindow
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: EndOfLineComment
                text: "'Now, assign an hDC to the hWnd we generated"
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: DimStatement
                children:
                  - kind: DimKeyword
                    text: Dim
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: shDC
                  - kind: Whitespace
                    text: " "
                  - kind: AsKeyword
                    text: As
                  - kind: Whitespace
                    text: " "
                  - kind: LongKeyword
                    text: Long
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: AssignmentStatement
                children:
                  - kind: IdentifierExpression
                    children:
                      - kind: Identifier
                        text: shDC
                  - kind: Whitespace
                    text: " "
                  - kind: EqualityOperator
                    text: "="
                  - kind: Whitespace
                    text: " "
                  - kind: CallExpression
                    children:
                      - kind: Identifier
                        text: GetDC
                      - kind: LeftParenthesis
                        text: (
                      - kind: ArgumentList
                        children:
                          - kind: Argument
                            children:
                              - kind: IdentifierExpression
                                children:
                                  - kind: Identifier
                                    text: scrHwnd
                      - kind: RightParenthesis
                        text: )
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: EndOfLineComment
                text: "'Determine the size of the screen"
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: DimStatement
                children:
                  - kind: DimKeyword
                    text: Dim
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: screenWidth
                  - kind: Whitespace
                    text: " "
                  - kind: AsKeyword
                    text: As
                  - kind: Whitespace
                    text: " "
                  - kind: LongKeyword
                    text: Long
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: screenHeight
                  - kind: Whitespace
                    text: " "
                  - kind: AsKeyword
                    text: As
                  - kind: Whitespace
                    text: " "
                  - kind: LongKeyword
                    text: Long
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: AssignmentStatement
                children:
                  - kind: IdentifierExpression
                    children:
                      - kind: Identifier
                        text: screenWidth
                  - kind: Whitespace
                    text: " "
                  - kind: EqualityOperator
                    text: "="
                  - kind: Whitespace
                    text: " "
                  - kind: BinaryExpression
                    children:
                      - kind: MemberAccessExpression
                        children:
                          - kind: Identifier
                            text: Screen
                          - kind: PeriodOperator
                            text: "."
                          - kind: WidthKeyword
                            text: Width
                      - kind: Whitespace
                        text: " "
                      - kind: BackwardSlashOperator
                        text: "\\"
                      - kind: Whitespace
                        text: " "
                      - kind: MemberAccessExpression
                        children:
                          - kind: Identifier
                            text: Screen
                          - kind: PeriodOperator
                            text: "."
                          - kind: Identifier
                            text: TwipsPerPixelX
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: AssignmentStatement
                children:
                  - kind: IdentifierExpression
                    children:
                      - kind: Identifier
                        text: screenHeight
                  - kind: Whitespace
                    text: " "
                  - kind: EqualityOperator
                    text: "="
                  - kind: Whitespace
                    text: " "
                  - kind: BinaryExpression
                    children:
                      - kind: MemberAccessExpression
                        children:
                          - kind: Identifier
                            text: Screen
                          - kind: PeriodOperator
                            text: "."
                          - kind: Identifier
                            text: Height
                      - kind: Whitespace
                        text: " "
                      - kind: BackwardSlashOperator
                        text: "\\"
                      - kind: Whitespace
                        text: " "
                      - kind: MemberAccessExpression
                        children:
                          - kind: Identifier
                            text: Screen
                          - kind: PeriodOperator
                            text: "."
                          - kind: Identifier
                            text: TwipsPerPixelY
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "        "
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: EndOfLineComment
                text: "'Copy the pixel data from the screen into our form"
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: CallStatement
                children:
                  - kind: Identifier
                    text: BitBlt
                  - kind: Whitespace
                    text: " "
                  - kind: MeKeyword
                    text: Me
                  - kind: PeriodOperator
                    text: "."
                  - kind: Identifier
                    text: hDC
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: IntegerLiteral
                    text: "0"
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: IntegerLiteral
                    text: "0"
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: screenWidth
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: screenHeight
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: shDC
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: IntegerLiteral
                    text: "0"
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: IntegerLiteral
                    text: "0"
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: vbSrcCopy
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "        "
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: EndOfLineComment
                text: "'Release our hold on the screen DC"
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: CallStatement
                children:
                  - kind: Identifier
                    text: ReleaseDC
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: scrHwnd
                  - kind: Comma
                    text: ","
                  - kind: Whitespace
                    text: " "
                  - kind: Identifier
                    text: shDC
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: AssignmentStatement
                children:
                  - kind: MemberAccessExpression
                    children:
                      - kind: MeKeyword
                        text: Me
                      - kind: PeriodOperator
                        text: "."
                      - kind: Identifier
                        text: Picture
                  - kind: Whitespace
                    text: " "
                  - kind: EqualityOperator
                    text: "="
                  - kind: Whitespace
                    text: " "
                  - kind: MemberAccessExpression
                    children:
                      - kind: MeKeyword
                        text: Me
                      - kind: PeriodOperator
                        text: "."
                      - kind: Identifier
                        text: Image
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: EndOfLineComment
                text: "'Restore the window"
              - kind: Newline
                text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: AssignmentStatement
                children:
                  - kind: MemberAccessExpression
                    children:
                      - kind: MeKeyword
                        text: Me
                      - kind: PeriodOperator
                        text: "."
                      - kind: Identifier
                        text: WindowState
                  - kind: Whitespace
                    text: " "
                  - kind: EqualityOperator
                    text: "="
                  - kind: Whitespace
                    text: " "
                  - kind: IdentifierExpression
                    children:
                      - kind: Identifier
                        text: vbNormal
                  - kind: Newline
                    text: "\r\n"
              - kind: Whitespace
                text: "    "
              - kind: Newline
                text: "\r\n"
          - kind: EndKeyword
            text: End
          - kind: Whitespace
            text: " "
          - kind: SubKeyword
            text: Sub
          - kind: Newline
            text: "\r\n"
      - kind: Newline
        text: "\r\n"