Is this what you're looking for?
Code:Public Class Form1 Private myButton As Button Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try myButton = New Button myButton.Size = New System.Drawing.Size(80, 24) myButton.Location = New System.Drawing.Point(40, 40) myButton.Text = "myButton" Controls.Add(myButton) AddHandler myButton.Click, AddressOf myButtonClick Catch ex As Exception End Try End Sub Private Sub myButtonClick() Try MessageBox.Show("OK") Catch ex As Exception End Try End Sub End Class
Curt




Reply With Quote