1Public Class Form1
2    Inherits System.Windows.Forms.Form
3
4#Region " Windows Form Designer generated code "
5
6    Public Sub New()
7        MyBase.New()
8
9        'This call is required by the Windows Form Designer.
10        InitializeComponent()
11
12        'Add any initialization after the InitializeComponent() call
13
14    End Sub
15
16    'Form overrides dispose to clean up the component list.
17    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
18        If disposing Then
19            If Not (components Is Nothing) Then
20                components.Dispose()
21            End If
22        End If
23        MyBase.Dispose(disposing)
24    End Sub
25
26    'Required by the Windows Form Designer
27    Private components As System.ComponentModel.IContainer
28
29    'NOTE: The following procedure is required by the Windows Form Designer
30    'It can be modified using the Windows Form Designer.
31    'Do not modify it using the code editor.
32    Friend WithEvents circleWidget As AxmultipleaxLib.AxQAxWidget2
33    Friend WithEvents resetButton As AxwrapperaxLib.AxQPushButton
34    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
35        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
36        Me.circleWidget = New AxmultipleaxLib.AxQAxWidget2()
37        Me.resetButton = New AxwrapperaxLib.AxQPushButton()
38        CType(Me.circleWidget, System.ComponentModel.ISupportInitialize).BeginInit()
39        CType(Me.resetButton, System.ComponentModel.ISupportInitialize).BeginInit()
40        Me.SuspendLayout()
41        '
42        'circleWidget
43        '
44        Me.circleWidget.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
45                    Or System.Windows.Forms.AnchorStyles.Left) _
46                    Or System.Windows.Forms.AnchorStyles.Right)
47        Me.circleWidget.Enabled = True
48        Me.circleWidget.Location = New System.Drawing.Point(8, 8)
49        Me.circleWidget.Name = "circleWidget"
50        Me.circleWidget.OcxState = CType(resources.GetObject("circleWidget.OcxState"), System.Windows.Forms.AxHost.State)
51        Me.circleWidget.Size = New System.Drawing.Size(280, 216)
52        Me.circleWidget.TabIndex = 0
53        '
54        'resetButton
55        '
56        Me.resetButton.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
57        ' VB is case insensitive, but our C++ controls are not.
58        ' Me.resetButton.enabled = True
59        Me.resetButton.Location = New System.Drawing.Point(184, 240)
60        Me.resetButton.Name = "resetButton"
61        Me.resetButton.OcxState = CType(resources.GetObject("resetButton.OcxState"), System.Windows.Forms.AxHost.State)
62        Me.resetButton.Size = New System.Drawing.Size(104, 24)
63        Me.resetButton.TabIndex = 1
64        '
65        'Form1
66        '
67        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
68        Me.ClientSize = New System.Drawing.Size(292, 273)
69        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.resetButton, Me.circleWidget})
70        Me.Name = "Form1"
71        Me.Text = "Form1"
72        CType(Me.circleWidget, System.ComponentModel.ISupportInitialize).EndInit()
73        CType(Me.resetButton, System.ComponentModel.ISupportInitialize).EndInit()
74        Me.ResumeLayout(False)
75
76    End Sub
77
78#End Region
79
80    Private Sub circleWidget_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles circleWidget.ClickEvent
81        Me.circleWidget.lineWidth = Me.circleWidget.lineWidth + 1
82    End Sub
83
84    Private Sub resetButton_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetButton.clicked
85        Me.circleWidget.lineWidth = 1
86        Me.resetButton.setFocus()
87    End Sub
88End Class
89