NickZ Pequeño Programa hecho por mi para crear nicks

[Braayhaan]

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

Código (vb) [Seleccionar] Expandir

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