---

Private Sub CommandButton1_Click()
    z.Text = Val(x.Text) * Val(y.Text)
End Sub

Private Sub CommandButton2_Click()
    z.Text = Val(x.Text) - Val(y.Text)
End Sub

Private Sub CommandButton_Add_Click()
    z.Text = Val(x.Text) + Val(y.Text)
End Sub

Private Sub CommandButton_Div_Click()
    If Val(y.Text) = 0 Then
        MsgBox "Delenie na nol nevozmozhno!", vbCritical, "Oshibka"
    Else
        z.Text = Val(x.Text) / Val(y.Text)
    End If
End Sub

Private Sub CommandButton_Sqrt_Click()
    If Val(x.Text) < 0 Then
        MsgBox "Nelzya izvlech koren iz otricatelnogo chisla!", vbCritical, "Oshibka"
    Else
        z.Text = Sqr(Val(x.Text))
    End If
End Sub

Private Sub CommandButton_Sin_Click()
    z.Text = Sin(Val(x.Text))
End Sub

Private Sub CommandButton3_Click()
    x.Text = ""
    y.Text = ""
    z.Text = ""
End Sub

Private Sub CommandButton_YES_Click()
    MsgBox "Vy horosho podumali", vbInformation, "Soobshchenie"
End Sub

Private Sub CommandButton_NO_Click()
    Me.BackColor = vbRed
End Sub