[لاجديد] دردشة كودية +-*/ - نسخة قابلة للطباعة

PHP كود :
Public Class Form1
    Private Function go() As String
        If TextBox1.Text.ToString.ToLower.Contains("+") Then
            Return "+"
        ElseIf TextBox1.Text.ToString.ToLower.Contains("-") Then
            Return "-"
        ElseIf TextBox1.Text.ToString.ToLower.Contains("*") Then
            Return "*"
        ElseIf TextBox1.Text.ToString.ToLower.Contains("/") Then
            Return "/"
        Else
            Return Nothing
        End If
    End Function
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyData = Keys.Enter Then
            If IsNothing(go) = False Then
                Dim res As String = ""
                Select Case go()
                    Case "+"
                        res = ("=" & Val(TextBox1.Text.Split("+")(0)) + Val(TextBox1.Text.Split("+")(1)))
                    Case "-"
                        res = ("=" & Val(TextBox1.Text.Split("-")(0)) - Val(TextBox1.Text.Split("-")(1)))
                    Case "*"
                        res = ("=" & Val(TextBox1.Text.Split("*")(0)) * Val(TextBox1.Text.Split("*")(1)))
                    Case "/"
                        res = ("=" & Val(TextBox1.Text.Split("/")(0)) / Val(TextBox1.Text.Split("/")(1)))
                End Select
                '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                If TextBox1.Text.Contains(res) = False Then
                    TextBox1.AppendText(res)
                End If
                '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
            End If
        End If
    End Sub
End Class