Window1.btnLeft.Action:
Sub Action()
   canHouse.left=canHouse.left-10
End Sub

Window1.btnRight.Action:
Sub Action()
   canHouse.left=canHouse.left+10
End Sub

Window1.btnCentre.Action:
Sub Action()
   canHouse.left=Window1.Width/2 - canHouse.Width/2
   canHouse.top=Window1.Height/2 - canHouse.Height/2 -19
End Sub

Window1.btnUp.Action:
Sub Action()
   canHouse.top=canHouse.top-10
End Sub

Window1.btnDown.Action:
Sub Action()
   canHouse.top=canHouse.top+10
End Sub

Window1.btnResize.Action:
Sub Action()
   If Window1.Width=300 Then
      Window1.width=500
      Window1.height=400
      //canHouse.left=186
      //canHouse.top=118
      btnCentre.left=btnCentre.left+100
      btnDown.left=btnDown.left+100
      btnLeft.left=btnLeft.left+100
      btnResize.left=btnResize.left+100
      btnRight.left=btnRight.left+100
      btnUp.left=btnUp.left+100
   ElseIf Window1.width=500 Then
      Window1.Width=300
      Window1.height=300
      //canHouse.left=86
      //canHouse.top=68
      btnCentre.left=btnCentre.left-100
      btnDown.left=btnDown.left-100
      btnLeft.left=btnLeft.left-100
      btnResize.left=btnResize.left-100
      btnRight.left=btnRight.left-100
      btnUp.left=btnUp.left-100
   End If
End Sub