Visual Basic

[STAThread]
static void Main() {
	Application.EnableVisualStyles();
	Application.SetCompatibleTextRenderingDefault(false);
	Form1 form1=new Form1();
	// to remain hidden, we don't pass the form to App.Run();
	// as a consequence the form must perform an Application.Exit
	// when it quits, closes or receives a SessionEnding event.
	Application.Run();
}

Imports System.Security.AccessControl
Imports System.IO
Imports System.Reflection

Try
  Dim user As String = "Users"
  Dim location as String = Path.GetDirectoryName(Assembly.GetExecutingAssembly.Location)
  Dim rule As FileSystemAccessRule 
  rule = New FileSystemAccessRule(user, _
    FileSystemRights.FullControl, _
    InheritanceFlags.None, _
    PropagationFlags.NoPropagateInherit, _
    AccessControlType.Allow)
  Dim security As  DirectorySecurity = Directory.GetAccessControl(location)

  Dim modified as Boolean = false
  security.ModifyAccessRule(AccessControlModification.Set, rule, modified)

  rule = New FileSystemAccessRule(user, _
    FileSystemRights.FullControl, _
    InheritanceFlags.ContainerInherit OR InheritanceFlags.ObjectInherit, _
    PropagationFlags.InheritOnly, _
    AccessControlType.Allow)

  modified = false
  security.ModifyAccessRule(AccessControlModification.Add, rule, modified)

  Directory.SetAccessControl(location, security)

Catch ex As Exception

End Try