Exercise 8

Download as docx, pdf, or txt
Download as docx, pdf, or txt
You are on page 1of 1

Exercise #8

Public Class Form1


Dim Wait As Double
Dim Forward As Double
Dim ID As Double

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles Button1.Click
Label2.Text = 25.0 + Wait + Forward + ID
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles CheckBox1.CheckedChanged
CheckBox1.Checked = Wait
Wait = 3.5
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles CheckBox2.CheckedChanged
CheckBox2.Checked = Forward
Forward = 3.5
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles CheckBox3.CheckedChanged
CheckBox3.Checked = ID
ID = 3.5
End Sub
End Class

You might also like