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


-------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
Código (vb) [Seleccionar]
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