Private Sub Command1_Click()
If Text1.Text = "Leonard" And Text2.Text = "yoyoyo" Then
Menu.Label12.Caption = (Menu.Label10.Caption * 0.1)
Menu.Label6.Caption = Menu.Label10.Caption * 1.1
Menu.Label6.Caption = Format(Menu.Label6.Caption, "$# ### ###.00")
Menu.Label10.Caption = Format(Menu.Label10.Caption, "$# ### ###.00")
Menu.Label12.Caption = Format(Menu.Label12.Caption, "$# ### ###.00")
End If
Employee.Hide
End Sub