A multipurpose scientific calculator

��Public Class trign

    Private Sub trign_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

        Me.inv.Checked = False

        calculator.Select()

    End Sub

    Public Sub trign_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.BackColor = calculator.BackColor

        Me.Location = New System.Drawing.Point(calculator.Right, calculator.Bottom - Me.Height - calculator.memoryfrm.Height)

        Me.Owner = calculator

    End Sub

    Private Sub trigbut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sin.Click, cos.Click, tan.Click, sinh.Click, cosh.Click, tanh.Click

        calculator.Select()

        If Not calculator.s = 0 Then

            calculator.s = 0

            calculator.expression.Clear()

            calculator.expression.Select()

        End If

        calculator.expression.Paste(sender.text)

        If Me.inv.Checked Then

            calculator.expression.Paste("��")

            Me.inv.Checked = False

        End If

    End Sub

    Private Sub inv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles inv.Click

        calculator.Select()

    End Sub

    Private Sub trign_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        Me.Location = New System.Drawing.Point(calculator.Right, calculator.Bottom - Me.Height - calculator.memoryfrm.Height)

    End Sub

    Private Sub sel(ByVal sender As Object, ByVal e As System.EventArgs) Handles cos.Click, cosh.Click, inv.Click, Me.Click, sin.Click, sinh.Click, tan.Click, tanh.Click

        If calculator.s = 0 Then

            calculator.expression.Select()

        End If

        calculator.comment.Text = ""

    End Sub

    Private Sub trign_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

        calculator.Select()

    End Sub

End Class