VERSION 5.00
Begin VB.UserControl HatchControl 
   Alignable       =   -1  'True
   BackColor       =   &H8000000A&
   ClientHeight    =   2016
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2700
   ScaleHeight     =   2016
   ScaleWidth      =   2700
   Begin VB.TextBox StepEdit 
      Height          =   372
      Left            =   120
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   1440
      Width           =   2412
   End
   Begin VB.TextBox AngleEdit 
      Height          =   372
      Left            =   120
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   480
      Width           =   2412
   End
   Begin VB.Label Label2 
      BackColor       =   &H8000000A&
      Caption         =   " "
      Height          =   252
      Left            =   120
      TabIndex        =   2
      Top             =   1080
      Width           =   2412
   End
   Begin VB.Label Label1 
      BackColor       =   &H8000000A&
      Caption         =   " "
      Height          =   252
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2412
   End
End
Attribute VB_Name = "HatchControl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Event AngleChange()

Public Event StepChange()

Public Property Get AngleEditValue() As Variant
  AngleEditValue = AngleEdit.Text
End Property

Public Property Let AngleEditValue(ByVal vNewValue As Variant)
  AngleEdit.Text = vNewValue
End Property

Public Property Get StepEditValue() As Variant
  StepEditValue = StepEdit.Text
End Property

Public Property Let StepEditValue(ByVal vNewValue As Variant)
  StepEdit.Text = vNewValue
End Property

Private Sub AngleEdit_Change()
  RaiseEvent AngleChange
End Sub

Private Sub StepEdit_Change()
  RaiseEvent StepChange
End Sub
