Public Class Form1
    Dim myButton1 As Button

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Create s new button, associating it with the variable myButton1
        myButton1 = New Button

        ' Assign it some properties
        With myButton1
            .Left = 0
            .Top = 10
            .Text = "Press me"
            .Width = 100
            .Height = 100
            .BackColor = Color.White
        End With

        ' The following tells the control which peice of code to use the that event.
        ' Format: {Control Name}.{Event Name}, AddressOf {Routine name}
        AddHandler myButton1.Click, AddressOf Clicked_On_MyButton1
        AddHandler myButton1.MouseHover, AddressOf MouseOver_MyButton1
        AddHandler myButton1.MouseLeave, AddressOf MouseLeaving_MyButton1
        ' Add it to the form
        Me.Controls.Add(myButton1)
    End Sub

    Private Sub Clicked_On_MyButton1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' The user has click on mybutton1, do something
        MessageBox.Show("You clicked on myButton1")
    End Sub

    Private Sub MouseOver_MyButton1(ByVal sender As Object, ByVal e As System.EventArgs)
        ' mouse is over myButton1, do something
        myButton1.BackColor = Color.Blue

    End Sub
    Private Sub MouseLeaving_MyButton1(ByVal sender As Object, ByVal e As System.EventArgs)
        ' The mouse is leaving myButton1, something
        myButton1.BackColor = Color.White
    End Sub
End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub