[VB.net] Information PC

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Enabled = False
        Button3.Enabled = True

        Label1.Text = "Nom de l'ordinateur :"
        Label2.Text = "Nom de l'utilisateur :"
        Label3.Text = "Nom du système d'exploitation :"
        Label4.Text = "Verrouillage majuscule :"
        Label5.Text = "Présence d'une roue de défilement :"
        Label6.Text = "Zone de travail :"
        Label7.Text = "Connection au réseau :"
        Label8.Text = "Nom de l'utilisateur actuellement connecté :"
        Label9.Text = "Nom du domaine réseau :"
        Label10.Text = "Nom de l'écran :"
        Label11.Text = "Date et heure :"
        Label12.Text = "Mémoire physique libre :"
        Button1.Text = "Afficher les informations"
        Button2.Text = "Français"
        Button3.Text = "Anglais"
        GroupBox1.Text = "Informations concernant l'ordinateur"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button2.Enabled = True
        Button3.Enabled = False

        Label1.Text = "Computer Name :"
        Label2.Text = "Username :"
        Label3.Text = "OS Name :"
        Label4.Text = "Caps Lock Checker :"
        Label5.Text = "Mouse Wheel Checker :"
        Label6.Text = "Working Area :"
        Label7.Text = "Connected to a network :"
        Label8.Text = "Current User :"
        Label9.Text = "Current Domain :"
        Label10.Text = "Display Name :"
        Label11.Text = "Local Time :"
        Label12.Text = "Physical Memory :"
        Button1.Text = "Get info"
        Button2.Text = "French"
        Button3.Text = "English"
        GroupBox1.Text = "Info PC"
    End Sub

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

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = (System.Environment.MachineName)
        TextBox2.Text = (System.Environment.UserName)
        TextBox3.Text = (My.Computer.Info.OSFullName)
        TextBox4.Text = (My.Computer.Keyboard.CapsLock)
        TextBox5.Text = (My.Computer.Mouse.WheelExists)
        TextBox6.Text = My.Computer.Screen.WorkingArea.ToString
        TextBox7.Text = My.Computer.Network.IsAvailable
        TextBox8.Text = System.Environment.UserName
        TextBox9.Text = System.Environment.UserDomainName
        TextBox10.Text = (My.Computer.Screen.DeviceName)
        TextBox11.Text = (My.Computer.Clock.LocalTime)
        TextBox12.Text = My.Computer.Info.AvailablePhysicalMemory
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
    End Sub

End Class