Visual Basic 2010 – Computer Information.avi
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = My.Computer.Name TextBox2.Text = My.User.Name 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 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() End Sub End Class