words per minute
4
GlennMaxwell
00:00
Speed
' Code written by: LinuX Man, 2019.
' Setting for startup of app.
Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Status.Text = "Loading Program..."
' Abort Action button will be invisible in startup because of no usage of it.
Button1.Visible = False
Label7.Text = Environment.UserName.ToString
Status.Text = "The program was loaded successfully."
End Sub
' Menu Options...
Private Sub PowerOptionsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PowerOptionsToolStripMenuItem1.Click
Status.Text = "Requested to open Power Configuration."
Process.Start("powercfg.cpl", AppWinStyle.NormalFocus)
End Sub