Bueno NickZ es un Programa que hice en Vb.Net como en 5 Minutos y como me gusto mucho el resultado bueno pues quiero compartirlo con ustedes, espero les guste  

-------UPDATE-------
Le puse un boton de Guardar, al dar click en guardar el texto escrito se guarda en un Archivo de Texto que se crea en el escritorio.

Al dar click a los iconos naranjas se Copian al textbox1



Descargar

CODIGO

Public Class Form1
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        TextBox1.Paste("(·|·)")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("No se puede Generar si el cuadro esta Vacio")
            Return
        End If
        MsgBox(TextBox1.Text)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("El cuadro esta Vacio")
            Return
        End If
        TextBox1.SelectAll()
        TextBox1.Copy()
        MsgBox("El Texto se Copio al Clipboard")
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        TextBox1.Paste("~~")
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        TextBox1.Paste("/*\")
    End Sub
 
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        TextBox1.Paste("(-_-)")
    End Sub
 
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        TextBox1.Paste("O.o")
    End Sub
 
    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
        TextBox1.Paste("^_^")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("No hay nada que Borrar")
            Return
        End If
        TextBox1.Clear()
    End Sub
 
    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
        Timer1.Start()
    End Sub
 
    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
        WindowState = 1
    End Sub
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static i As Double = 1.0
        i -= 0.08
        Me.Opacity = i
        'si el formulario es ya invisible
        If Me.Opacity = 0 Then
            'detener el temporizador
            CType(sender, Timer).Stop()
            'cerrar el formulario
            Me.Close()
        End If
    End Sub
End Class