A simple Label event handler

Imports System
Imports System.Windows.Forms

Public Class MainClass

   Shared Sub Main()
        Dim myform As Form = New FrmSimple()
        Application.Run(myform)

   End Sub ' Main

End Class

Public Class FrmSimple
   Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

   Public Sub New()
      MyBase.New()

      ' This call is required by the Windows Form Designer.
      InitializeComponent()


      ' Add any initialization after the 
      ' InitializeComponent() call
   End Sub ' New

   ' Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose( _
      ByVal disposing As Boolean)

      If disposing Then

         If Not (components Is Nothing) Then
            components.Dispose()
         End If

      End If

      MyBase.Dispose(disposing)
   End Sub ' Dispose

   Friend WithEvents lblOutput As System.Windows.Forms.Label

   ' Required by the Windows Form Designer
   Private components As System.ComponentModel.Container

   ' NOTE: The following procedure is required by 
   ' the Windows Form Designer.
   ' It can be modified using the Windows Form Designer.  
   ' Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
      Private Sub InitializeComponent()
      Me.lblOutput = New System.Windows.Forms.Label()
      Me.SuspendLayout()
      '
      'lblOutput
      '
      Me.lblOutput.Location = New System.Drawing.Point(16, 16)
      Me.lblOutput.Name = "lblOutput"
      Me.lblOutput.Size = New System.Drawing.Size(152, 80)
      Me.lblOutput.TabIndex = 0
      Me.lblOutput.Text = "Click Me!"
      Me.lblOutput.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
      '
      'FrmSimple
      '
      Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      Me.ClientSize = New System.Drawing.Size(176, 101)
      Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblOutput})
      Me.Name = "FrmSimple"
      Me.Text = "SimpleEventExample"
      Me.ResumeLayout(False)

   End Sub

#End Region

   ' handler for click event on lblOutput
   Private Sub lblOutput_Click(ByVal sender As Object, _
      ByVal e As System.EventArgs) Handles lblOutput.Click

      MessageBox.Show("Label was clicked")
   End Sub ' lblOutput_Click

End Class
Related examples in the same category

1.	Add Image to Label
2.	Label Border Demo
3.	Set Label Value
4.	Add a Label to Frame and set its Text
A simple Label event handler : Label « GUI « VB.Net

Related examples in the same category
