https://www.codin-guru.tk/

https://www.sourcecodester.com/visual-basic-net?page=3

https://www.java2s.com/Tutorial/VB/0260__GUI/ScrollingTextbyTimer.htm

https://www.daniweb.com/forums/thread49338.html

https://www.codeproject.com/KB/vb/

https://www.php-learn-it.com/

https://www.wikihow.com/Improve-your-Skills-as-a-Programmer

https://en.wikipedia.org/wiki/Fork_bomb

https://www.dotnettutorials.com/tutorials/themes/

Public Class Form1
Public Function Crypt( _
ByVal Text As String) As String
' Encrypts/decrypts the passed string using
' a simple ASCII value-swapping algorithm
Dim strTempChar As String = "", i As Integer
For i = 1 To Len(Text)
If Asc(Mid$(Text, i, 1)) < 128 Then
strTempChar = _
CType(Asc(Mid$(Text, i, 1)) + 128, String)
ElseIf Asc(Mid$(Text, i, 1)) > 128 Then
strTempChar = _
CType(Asc(Mid$(Text, i, 1)) - 128, String)
End If
Mid$(Text, i, 1) = _
Chr(CType(strTempChar, Integer))
Next i
Return Text
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyText As String
' Encrypt
MyText = TextBox1.Text
MyText = Crypt(MyText)
textbox2.text = MyText


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim MyText As String
' Decrypt
MyText = Crypt(TextBox1.Text)
TextBox2.Text = MyText
End Sub
End Class


https://www.developer.com/net/vb/article.php/3292781

https://www.codeproject.com/KB/security/simplestringencryption.aspx