---

Private Sub CommandButton1_Click()
Dim x As Single
Dim Y As Single
Dim g As Single
x = Val(TextBox1.Text)
Y = Val(TextBox2.Text)
Select Case x
Case Is < 0
g = Sqr(Abs(Y + 1)) / (2 + Abs(x))
Case 0
g = Sin(Y / (1 + x ^ 2))
Case Is > 0
g = 2 + Cos(Y / x)
End Select
TextBox3.Text = g
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub Label1_Click()

End Sub