Miscellany

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