Is there a tool or application to spell check a vb.net application

first create a Start up module I alway call it mMain and than create the Main() sub. than from the project menu select properties then from the application tab select the startup object as sub Main() in sub Main you should put the following code at the end: Application.EnableVisualStyles() Application.DoEvents() Application.Run(MainFrm)

This is very simple but it works! Public Class CL_EnCrypt Private sPsw As String = "XAN4519CEAN4719" Private sBox(255) As String Private sKey(255) As String Public Property Password() As String Get Return sPsw End Get Set(ByVal sVal As String) sPsw = sVal End Set End Property Public Function DeCrypt(ByVal sWord As String) As String If sPsw = "" Then MsgBox("Error you must set a password first.", MsgBoxStyle.Information, "Password not set") Return "" End If Return EnDeCrypt(sWord) End Function Public Function EnCrypt(ByVal sWord As String) As String If sPsw = "" Then MsgBox("Error you must set a password first.", MsgBoxStyle.Information, "Password not set") Return "" End If Return EnDeCrypt(sWord) End Function Private Sub RC4Initialize() Dim sSwap As String = "" Dim A, B As Integer Try For A = 0 To 255 sKey(A) = Asc(Mid$(sPsw, (A Mod sPsw.Length) + 1, 1)) sBox(A) = A Next B = 0 For A = 0 To 255 B = (B + sBox(A) + sKey(A)) Mod 256 sSwap = sBox(A) sBox(A) = sBox(B) sBox(B) = sSwap Next Catch ex As Exception MessageBox.Show("Encription Error - " + ex.Message, "Encription Error", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub Private Function EnDeCrypt(ByVal sPlainTxt As String) As String 'This routine does all the work. Call it both to ENcrypt and to DEcrypt your data. Dim A, I, J, K As Integer Dim sCipherBy, sCipher, sTemp As String Try sCipherBy = "" sCipher = "" sTemp = "" I = 0 J = 0 RC4Initialize() For A = 1 To sPlainTxt.Length I = (I + 1) Mod 256 J = (J + sBox(I)) Mod 256 sTemp = sBox(I) sBox(I) = sBox(J) sBox(J) = sTemp K = sBox((sBox(I) + sBox(J)) Mod 256) sCipherBy = Asc(Mid$(sPlainTxt, A, 1)) Xor K sCipher = sCipher + Chr(sCipherBy) Next Return sCipher Catch ex As Exception MessageBox.Show("Encription Error - "