Background Color Project

Background Color Project
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Text = "Red" Me.BackColor = Color.Red Me.Width = Width + 50 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Text = "Green" Me.BackColor = Color.Green Me.Height = Height + 50 End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Text = "Blue" Me.BackColor = Color.Blue Me.Width = Width - 50 End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Text = "Orange" Me.BackColor = Color.Orange Me.Height = Height - 50 End Sub Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick Me.Text = "Form1_MouseClick" Me.BackColor = Color.Pink End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Close() End Sub End Class
TECH TUNE BD