---

Private Sub cmdNo_Click()
MsgBox "Áûâàåò"
End Sub

Private Sub cmdYes_Click()
cmdYes.ForeColor = vbRed
End Sub

Private Sub CommandButton1_Click()
Z = Val(x) * Val(Y)
End Sub

Private Sub CommandButton2_Click()
Z = Val(x) - Val(Y)
End Sub

Private Sub CommandButton3_Click()
x = ""
Y = ""
Z = ""
End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub CommandButton5_Click()
If Val(Y) <> 0 Then
Z = Val(x) / Val(Y)
Else
MsgBox "Íà íîëü äåëèòü íåëüçÿ!"
End If
End Sub

Private Sub CommandButton6_Click()
Z = Val(x) + Val(Y)
End Sub

Private Sub CommandButton7_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Click()

End Sub