program 2

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim A, B, C, D, E, F As Double

TxtYHS4.Text = Val(TxtYHS1.Text) + Val(TxtYHS2.Text) – Val(TxtYHS2.Text)

TxtYHS5.Text = Val(TxtYHS4.Text) * (0.1)

TxtYHS6.Text = Val(TxtYHS4.Text) – Val(TxtYHS5.Text)

End Sub

 

Private Sub CmdULANG_Click()

TxtYHS1 = “”

TxtYHS2 = “”

TxtYHS3 = “”

TxtYHS4 = “”

TxtYHS5 = “”

TxtYHS6 = “”

End Sub

 

 

 

Private Sub TxtYHS1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHS2.SetFocus

End If

End Sub

 

 

Private Sub TxtYHS2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHS3.SetFocus

End If

End Sub

 

 

Private Sub TxtYHS3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim A, B, C, D, E, F As Double

TxtYHS4.Text = Val(TxtYHS1.Text) + Val(TxtYHS2.Text) – Val(TxtYHS2.Text)

TxtYHS5.Text = Val(TxtYHS4.Text) * (0.1)

TxtYHS6.Text = Val(TxtYHS4.Text) – Val(TxtYHS5.Text)

End If

End Sub

 

Program 2

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

 

Private Sub Check2_Click()

Label2.FontItalic = Check2.Value

End Sub

 

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub Option1_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub