VERSION 4.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   9300
   ClientLeft      =   876
   ClientTop       =   1656
   ClientWidth     =   5796
   Height          =   9672
   Left            =   828
   LinkTopic       =   "Form1"
   ScaleHeight     =   9300
   ScaleWidth      =   5796
   Top             =   1332
   Width           =   5892
   Begin VB.PictureBox Reset 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   4800
      Picture         =   "ioddynam.frx":0000
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   9
      Top             =   4560
      Width           =   495
   End
   Begin VB.PictureBox VerticalShearDown 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   4320
      Picture         =   "ioddynam.frx":0442
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   8
      Top             =   4560
      Width           =   495
   End
   Begin VB.PictureBox StopVerticalShear 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   3840
      Picture         =   "ioddynam.frx":0884
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   7
      Top             =   4560
      Width           =   495
   End
   Begin VB.PictureBox VerticalShearUp 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   3360
      Picture         =   "ioddynam.frx":0CC6
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   6
      Top             =   4560
      Width           =   495
   End
   Begin VB.PictureBox HorizontalShearLeft 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   2880
      Picture         =   "ioddynam.frx":1108
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   5
      Top             =   4560
      Width           =   495
   End
   Begin VB.PictureBox StopHorizontalShear 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   2400
      Picture         =   "ioddynam.frx":154A
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   4
      Top             =   4560
      Width           =   495
   End
   Begin VB.PictureBox HorizontalShearRight 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   1920
      Picture         =   "ioddynam.frx":198C
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   3
      Top             =   4560
      Width           =   495
   End
   Begin VB.PictureBox RotateCounterClockwise 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   1440
      Picture         =   "ioddynam.frx":1DCE
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   2
      Top             =   4560
      Width           =   495
   End
   Begin VB.PictureBox StopRotate 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   960
      Picture         =   "ioddynam.frx":2210
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   1
      Top             =   4560
      Width           =   495
   End
   Begin VB.PictureBox RotateClockwise 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   480
      Picture         =   "ioddynam.frx":2652
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   0
      Top             =   4560
      Width           =   495
   End
   Begin VB.OLE OLE1 
      Class           =   "DynamicPart"
      Height          =   3972
      Left            =   360
      OleObjectBlob   =   "ioddynam.frx":2A94
      TabIndex        =   10
      Top             =   240
      Width           =   4932
   End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Dim dp As Object

Private Sub Form_Load()
Set dp = OLE1.object
End Sub


Private Sub HorizontalShareLeft_Click()
dp.hShearRight = 0
dp.hShearActive = 1
End Sub

Private Sub HorizontalShareRight_Click()
dp.hShearRight = 1
dp.hShearActive = 1
End Sub


Private Sub HorizontalShearLeft_Click()
dp.hShearRight = 0
dp.hShearActive = 1
End Sub

Private Sub HorizontalShearRight_Click()
dp.hShearRight = 1
dp.hShearActive = 1
End Sub

Private Sub Reset_Click()
dp.Reset
End Sub


Private Sub RotateClockwise_Click()
dp.xRotateClockwise = 1
dp.xRotateActive = 1
End Sub


Private Sub RotateCounterClockwise_Click()
dp.xRotateClockwise = 0
dp.xRotateActive = 1
End Sub

Private Sub StopHorizontalShare_Click()
dp.hShearActive = 0
End Sub


Private Sub StopHorizontalShear_Click()
dp.hShearActive = 0
End Sub

Private Sub StopRotate_Click()
dp.xRotateActive = 0
End Sub


Private Sub StopVerticalShare_Click()
dp.vShearActive = 0
End Sub


Private Sub VerticalShareDown_Click()
dp.vShearUp = 0
dp.vShearActive = 1
End Sub


Private Sub VerticalShareUp_Click()
dp.vShearUp = 1
dp.vShearActive = 1
End Sub


Private Sub StopVerticalShear_Click()
dp.vShearActive = 0
End Sub


Private Sub VerticalShearDown_Click()
dp.vShearUp = 0
dp.vShearActive = 1
End Sub


Private Sub VerticalShearUp_Click()
dp.vShearUp = 1
dp.vShearActive = 1
End Sub


