Design-time Coding - vb.net

Question

I'm a newbie in visual basic dot net. I tried to create a design in run-time. Here's my simple code.
Dim frmLogin As New Form
Dim lblUserName, lblPassword As New Label
Dim txtUserName, txtPassword As New TextBox
Dim btnContinue, btnCancel As New Button
'set frmLogin properties
frmLogin.StartPosition = FormStartPosition.CenterScreen
frmLogin.FormBorderStyle = Windows.Forms.FormBorderStyle.None
frmLogin.BackColor = Color.LightGray
frmLogin.Size = New Size(400, 200)
'set lblUserName properties
lblUserName.Text = "User Name: "
lblUserName.Font = New Font("Calibri", 12, FontStyle.Regular)
lblUserName.Location = New Point(20, 30)
'set lblPassword properties
lblPassword.Text = "Password: "
lblPassword.Font = New Font("Calibri", 12, FontStyle.Regular)
lblPassword.Location = New Point(20, 70)
'set txtUserName properties
txtUserName.Font = New Font("Calibri", 12, FontStyle.Regular)
txtUserName.Location = New Point(120, 20)
txtUserName.Size = New Size(250, 20)
txtPassword.Font = New Font("Calibri", 12, FontStyle.Regular)
txtPassword.Location = New Point(120, 60)
txtPassword.Size = New Size(250, 20)
txtPassword.PasswordChar = "*"
btnCancel.Text = "Cancel"
btnCancel.Location = New Point(270, 120)
btnCancel.Size = New Size(100, 28)
btnCancel.BackColor = Color.White
btnCancel.Font = New Font("Calibri", 12, FontStyle.Regular)
frmLogin.Controls.Add(lblPassword)
frmLogin.Controls.Add(lblUserName)
frmLogin.Controls.Add(txtUserName)
frmLogin.Controls.Add(txtPassword)
frmLogin.Controls.Add(btnCancel)
frmLogin.ShowDialog()
How could I start creating a code here? I'd like to start in btnCancel, how could I insert this code in btnCancel
dim myAns as string = msgbox("This will exit the program. Are you sure?")
if ans = vbyes then application.exit

Answer 1

you have to add an event handler to the controls:
'register the event handler after initializing of the control
AddHandler btnCancel.Click, AddressOf CancelClick
'create a method with same signature as the delegate of the event
Private Sub CancelClick(ByVal sender As Object, ByVal e As EventArgs)
'do your stuff here
End Sub