Demonstrate the Events: Mouse Click, Mouse Down, Key Down, Form Load

DEMONSTRATE THE FOLLOWING EVENTS: MOUSE CLICK, MOUSE DOWN, KEY DOWN, FORM LOAD

Public Class Form1

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        Label1.ForeColor = Color.Green

        Label1.Text = "Key Down"

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Text = "Form Load"

    End Sub

    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick

        Label1.ForeColor = Color.Red

        Label1.Text = "Mouse Click"

    End Sub

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

        Label1.ForeColor = Color.Blue

        Label1.Text = "Mouse Down"

    End Sub

End Class