Miscellany

public text v1 · immutable

#255030

·published 2006-11-22 15:55 UTC

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