sWindow As New String[4]
'________________________
Public Sub Form_Open()

Manipulate

End
'________________________
Public Sub Manipulate()
Dim siDelay As Short = 2

Me.Show
Print "Show"
Wait siDelay

sWindow[0] = Me.Width
sWindow[1] = Me.Height
sWindow[2] = Me.X
sWindow[3] = Me.y

Me.Hide
Print "Hidden"
CompareWindow
Wait siDelay

Me.Show
Print "Show"
CompareWindow
Wait siDelay

Me.Minimized = True
Print "Minimized"
CompareWindow
Wait siDelay

Me.Show
Print "Show"
CompareWindow
Wait siDelay

Me.Maximized = True
Print "Maximized"
CompareWindow
Wait siDelay

Me.Maximized = False
Print "Not Maximized"
CompareWindow
Wait siDelay

Me.Height = 200
Me.Width = 300
Print "Resized"
CompareWindow
Wait siDelay

Me.x = 10
Me.Y = 10
Print "Moved"
CompareWindow
Wait siDelay

Me.Close

End
'________________________
Public Sub CompareWindow()
Dim sNewWindow As New String[4]
Dim siCount As Short
Dim bMatch As Boolean = True

sNewWindow[0] = Me.Width
sNewWindow[1] = Me.Height
sNewWindow[2] = Me.X
sNewWindow[3] = Me.y

For siCount = 0 To 3
  If sWindow[siCount] <> sNewWindow[siCount] Then bMatch = False
Next

If bMatch Then
  Print "Windows identities match the original window size"
Else
  Print "Windows identities DONOT match the original window size"
End If

End