The ant Encrypt + Notifyicon Example

Public Class Form1
   
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Replace(TextBox1.Text, "a", "GHW.")
        TextBox1.Text = Replace(TextBox1.Text, "a", "GHW.")
        TextBox1.Text = Replace(TextBox1.Text, "b", "96R.")
        TextBox1.Text = Replace(TextBox1.Text, "c", "68D.")
        TextBox1.Text = Replace(TextBox1.Text, "d", "31E.")
        TextBox1.Text = Replace(TextBox1.Text, "e", "Z96.")
        TextBox1.Text = Replace(TextBox1.Text, "f", "C86.")
        TextBox1.Text = Replace(TextBox1.Text, "g", "A6S.")
        TextBox1.Text = Replace(TextBox1.Text, "h", "CC3.")
        TextBox1.Text = Replace(TextBox1.Text, "i", "C26.")
        TextBox1.Text = Replace(TextBox1.Text, "j", "35S.")
        TextBox1.Text = Replace(TextBox1.Text, "k", "P35.")
        TextBox1.Text = Replace(TextBox1.Text, "l", "068.")
        TextBox1.Text = Replace(TextBox1.Text, "m", "1D1.")
        TextBox1.Text = Replace(TextBox1.Text, "n", "BST.")
        TextBox1.Text = Replace(TextBox1.Text, "o", "SQS.")
        TextBox1.Text = Replace(TextBox1.Text, "p", "SE9.")
        TextBox1.Text = Replace(TextBox1.Text, "q", "D23.")
        TextBox1.Text = Replace(TextBox1.Text, "r", "23D.")
        TextBox1.Text = Replace(TextBox1.Text, "s", "AZ2.")
        TextBox1.Text = Replace(TextBox1.Text, "t", "SAZ.")
        TextBox1.Text = Replace(TextBox1.Text, "u", "XDD.")
        TextBox1.Text = Replace(TextBox1.Text, "v", "ZXX.")
        TextBox1.Text = Replace(TextBox1.Text, "w", "DZX.")
        TextBox1.Text = Replace(TextBox1.Text, "x", "X2SD")
        TextBox1.Text = Replace(TextBox1.Text, "y", "3DÇ.")
        TextBox1.Text = Replace(TextBox1.Text, "z", "PO9.")
        TextBox1.Text = Replace(TextBox1.Text, " ", "-")
        If TextBox1.Text = "A6S.XDD.AZ2.31E.BST.C26.31E.Z96." Then
            MsgBox("kkk by :>>>::: gusndnide")
        End If
       
        NotifyIcon1.ShowBalloonTip(5000, "Message", TextBox1.Text + " - Encrypted Sucess", ToolTipIcon.Info)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.Text = Replace(TextBox2.Text, "GHW.", "a")
        TextBox2.Text = Replace(TextBox2.Text, "96R.", "b")
        TextBox2.Text = Replace(TextBox2.Text, "68D.", "c")
        TextBox2.Text = Replace(TextBox2.Text, "31E.", "d")
        TextBox2.Text = Replace(TextBox2.Text, "Z96.", "e")
        TextBox2.Text = Replace(TextBox2.Text, "C86.", "f")
        TextBox2.Text = Replace(TextBox2.Text, "A6S.", "g")
        TextBox2.Text = Replace(TextBox2.Text, "CC3.", "h")
        TextBox2.Text = Replace(TextBox2.Text, "C26.", "i")
        TextBox2.Text = Replace(TextBox2.Text, "35S.", "j")
        TextBox2.Text = Replace(TextBox2.Text, "P35.", "k")
        TextBox2.Text = Replace(TextBox2.Text, "068.", "l")
        TextBox2.Text = Replace(TextBox2.Text, "1D1.", "m")
        TextBox2.Text = Replace(TextBox2.Text, "BST.", "n")
        TextBox2.Text = Replace(TextBox2.Text, "SQS.", "o")
        TextBox2.Text = Replace(TextBox2.Text, "SE9.", "p")
        TextBox2.Text = Replace(TextBox2.Text, "D23.", "q")
        TextBox2.Text = Replace(TextBox2.Text, "23D.", "r")
        TextBox2.Text = Replace(TextBox2.Text, "AZ2.", "s")
        TextBox2.Text = Replace(TextBox2.Text, "SAZ.", "t")
        TextBox2.Text = Replace(TextBox2.Text, "XDD.", "u")
        TextBox2.Text = Replace(TextBox2.Text, "ZXX.", "v")
        TextBox2.Text = Replace(TextBox2.Text, "DZX.", "w")
        TextBox2.Text = Replace(TextBox2.Text, "X2D.", "x")
        TextBox2.Text = Replace(TextBox2.Text, "3DÇ.", "y")
        TextBox2.Text = Replace(TextBox2.Text, "PO9.", "z")
        TextBox2.Text = Replace(TextBox2.Text, "-", " ")
        TextBox2.Text = Replace(TextBox2.Text, ".", "")
       
        NotifyIcon1.ShowBalloonTip(5000, "Message", TextBox2.Text + " - Desencrypted Sucess", ToolTipIcon.Info)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NotifyIcon1.Icon = Me.Icon
        NotifyIcon1.Text = "SAFsaf"
        NotifyIcon1.Visible = True
    End Sub
End Class