and what kind of char room is this.
who meet inside this chat room

https://www.dreamincode.net/forums/topic/116283-make-your-application-minimize-to-system-tray-in-c%23/

/// <summary>
/// Runs the Program on Startup.
/// </summary>
/// <param name="RunOnStartup">True to Run on Startup, False to NOT Run on Startup.</param>
private void RunStartup(Boolean RunOnStartup)
{
Microsoft.Win32.RegistryKey key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", true);
if (RunOnStartup == true)
{
key.SetValue("Application Name", Application.ExecutablePath.ToString());
}
else
{
key.DeleteValue("Application Name", false);
}
}

/// <summary>
/// Gets or Sets if the Program will Run on Startup.
/// </summary>
private bool Startup
{
get
{
return Startup;
}
set
{
Startup = value;
Microsoft.Win32.RegistryKey key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", true);
if (Startup == true)
{
key.SetValue("Application Name", Application.ExecutablePath.ToString());
}
if (Startup == false)
{
key.DeleteValue("Application Name", false);
}
}
}

https://www.dreamincode.net/code/snippet2601.htm

https://trainingkit.webcamps.ms/WebMatrix.htm

https://a1vbcode.com/app-4713.asp

https://www.asp.net/webmatrix/tutorials/asp-net-web-pages-visual-basic

https://www.digitalcoding.com/Code-Snippets/C-Sharp/C-Code-Snippet-Insert-Update-Image-To-SQL-Server.html

https://www.dreamincode.net/forums/topic/187433-autofill-textbox/

Public Class Singleton
Private Shared SP As Singleton
Private InnerList as New Collections.ArrayList()

Private Sub New()
End Sub

Public Shared Function Create() As Singleton
If SP is Nothing Then SP = New Singleton()
Return SP
End Function

Public ReadOnly Property List As Collections.ArrayList
Get
Return InnerList
End Get
End Property
End Class

Module SingletonExample
Sub Main
Dim CountValue as Integer
Dim SP As Singleton = Singleton.Create()
Dim SP2 As Singleton = Singleton.Create()

SP.List.Add("First")
SP.List.Add("Second")
SP.List.Add("Third")

For CountValue = 0 To SP2.List.Count - 1
Console.WriteLine(SP2.List.Item(CountValue).ToString())
Next
End Sub
End Module