VERSION 4.00
Begin VB.Form Form1 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Dynamic Part - OLE Control"
   ClientHeight    =   5664
   ClientLeft      =   1008
   ClientTop       =   2496
   ClientWidth     =   4788
   Height          =   6036
   Left            =   960
   LinkTopic       =   "Form1"
   ScaleHeight     =   5664
   ScaleWidth      =   4788
   ShowInTaskbar   =   0   'False
   Tag             =   "dyprtctl"
   Top             =   2172
   Width           =   4884
   Begin VB.TextBox VShearAng 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   250
      Left            =   3480
      TabIndex        =   14
      Top             =   5400
      Width           =   1455
   End
   Begin VB.TextBox HShearAng 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   250
      Left            =   3480
      TabIndex        =   13
      Top             =   5240
      Width           =   1455
   End
   Begin VB.TextBox RotateAng 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   250
      Left            =   3480
      TabIndex        =   12
      Top             =   5040
      Width           =   1335
   End
   Begin VB.PictureBox Reset 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   4320
      Picture         =   "dyprtctl.frx":0000
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   9
      Top             =   0
      Width           =   495
   End
   Begin VB.PictureBox ShearDown 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   3840
      Picture         =   "dyprtctl.frx":0442
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   8
      Top             =   0
      Width           =   495
   End
   Begin VB.PictureBox StopVShear 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   3360
      Picture         =   "dyprtctl.frx":0884
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   7
      Top             =   0
      Width           =   495
   End
   Begin VB.PictureBox ShearUp 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   2880
      Picture         =   "dyprtctl.frx":0CC6
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   6
      Top             =   0
      Width           =   495
   End
   Begin VB.PictureBox ShearLeft 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   2400
      Picture         =   "dyprtctl.frx":1108
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   5
      Top             =   0
      Width           =   495
   End
   Begin VB.PictureBox StopHShear 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   1920
      Picture         =   "dyprtctl.frx":154A
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   4
      Top             =   0
      Width           =   495
   End
   Begin VB.PictureBox ShearRight 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   1440
      Picture         =   "dyprtctl.frx":198C
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   3
      Top             =   0
      Width           =   495
   End
   Begin VB.PictureBox RotateCounterClickwise 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   960
      Picture         =   "dyprtctl.frx":1DCE
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   2
      Top             =   0
      Width           =   495
   End
   Begin VB.PictureBox StopRotate 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   480
      Picture         =   "dyprtctl.frx":2210
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   1
      Top             =   0
      Width           =   495
   End
   Begin VB.PictureBox RotateClockwise 
      BackColor       =   &H00FFFF80&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   0
      Picture         =   "dyprtctl.frx":2652
      ScaleHeight     =   492
      ScaleWidth      =   492
      TabIndex        =   0
      Top             =   0
      Width           =   495
   End
   Begin ioddynamCtl.DynamicPart DynamicPart1 
      Height          =   3600
      Left            =   0
      OleObjectBlob   =   "dyprtctl.frx":2A94
      TabIndex        =   15
      Top             =   720
      Width           =   4800
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFF80&
      Caption         =   "                                   Dynamic Part Status"
      Height          =   255
      Left            =   0
      TabIndex        =   11
      Top             =   4800
      Width           =   4815
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFF80&
      Caption         =   $"dyprtctl.frx":5CAC
      Height          =   615
      Left            =   0
      TabIndex        =   10
      Top             =   5040
      Width           =   3495
   End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

























Private Sub DynamicPart1_PositionChange(ByVal rotate_ang As Single, ByVal h_ang As Single, ByVal v_ang As Single)
RotateAng.Text = rotate_ang
HShearAng.Text = h_ang
VShearAng.Text = v_ang
End Sub

Private Sub Reset_Click()
End
End Sub

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


Private Sub RotateCounterClickwise_Click()
DynamicPart1.xRotateClockwise = 0
DynamicPart1.xRotateActive = 1
End Sub


Private Sub ShearDown_Click()
DynamicPart1.vShearUp = 0
DynamicPart1.vShearActive = 1
End Sub

Private Sub ShearLeft_Click()
DynamicPart1.hShearRight = 0
DynamicPart1.hShearActive = 1
End Sub

Private Sub ShearRight_Click()
DynamicPart1.hShearRight = 1
DynamicPart1.hShearActive = 1
End Sub

Private Sub ShearUp_Click()
DynamicPart1.vShearUp = 1
DynamicPart1.vShearActive = 1
End Sub

Private Sub StopHShear_Click()
DynamicPart1.hShearActive = 0
End Sub

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


Private Sub StopVShear_Click()
DynamicPart1.vShearActive = 0
End Sub


