1 Imports System.Windows.Forms
\r
2 Imports System.Drawing
\r
4 Delegate Sub d_b1_onClick (s, evt)
\r
6 Public Class TestClass
\r
9 Public withevents button1 as Button
\r
11 Public Sub PutButtonOnForm()
\r
15 Public Sub b1_onClick_handler (a,b) Handles button1.Click
\r
19 Public Sub New(ctest_a as string)
\r
20 Dim b1_onClick as d_b1_onClick
\r
22 b1_onClick = New d_b1_onClick(AddressOf Me.b1_onClick_handler)
\r
24 Me.button1 = New Button()
\r
25 Me.button1.Text = "Click Me"
\r
26 Me.button1.Location = New Point(100, 10)
\r
27 'Me.Click = b1_onClick
\r
28 Me.Controls.Add(Me.button1)
\r
30 System.Console.WriteLine (ctest_a)
\r