Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Detta ska jag kalla med Button1_Click 'Startfärgen Me.BackColor = Color.Blue 'Visa att det är start genom att skriva det i titelraden Me.Text = "Start" End Sub Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick 'Ändra färgen till svart och visa att färgen ändrades 'Me.BackColor = Color.Black End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'MessageBox.Show("Vill du ändra texten?", "", MessageBoxButtons.YesNoCancel) 'Ändra programradstexten till texten på knappen ''' ######### HÄR VILL JAG KALLA Form1_Load ###### End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Meddela att det blir svart MsgBox("Nu blir det svart som natten") 'Ändra bakgrundsfärgen till svart Me.BackColor = Color.Black 'Visa att det är svart bakgrundsfärg genom att skriva det i titelraden Me.Text = "Svart bakgrundsfärg" End Sub End Class