Fields of the form (fields of the entering to information): You can place on surfaces its dialogue window of the field for entering the text, rolled list, the standard icons...).

// File: controls.w_js (JScript)

   Window.width = 40 * Window.cxChar;
   Window.height = 20 * Window.cyChar;

// The Coordinates by flap are assigned not in pixel!!!!
// The Special dialogue coordinates:
//             Õ: In 1/4 widths of the symbol
//             Y: In 1/8 heights of the symbol

// AddControl(id,type,Xdlg,Ydlg,Wdlg,Hdlg,"Text")

// The simple buttons:
Window.AddControl(1, 0, 0, 0, 80,12,"Usual button");
Window.AddControl(2, 1, 0,12, 80,12,"By default");

// Radiobutton 
Window.AddControl(3,3,85,0,80,12,"First");
Window.AddControl(4,15,85,10,80,12,"Second"); //checked

// Checkbox 
Window.AddControl(5,2,0,24,80,12,"Option 1");
Window.AddControl(6,14,0,32,80,12,"Option 2"); // checked

// The static fields
Window.AddControl(7,5,82,20,50,24,"The left alignment. Carrying the lines");
//Window.AddControl(0,6,82,20,50,24,"The center alignment. Carrying the lines");
//Window.AddControl(0,7,82,20,50,24,"The right alignment. Carrying the lines");

// The standard icons
Window.AddControl(1000,8,0,44,6,6,"32517");  // application
Window.AddControl(0,8,13,44,6,6,"32516"); // info
Window.AddControl(0,8,26,44,6,6,"32514"); // ask
Window.AddControl(0,8,38,44,6,6,"32513"); // stop
Window.AddControl(0,8,52,44,6,6,"32515"); // 

// The text line
Window.AddControl(8,9,0,60,80,10,"The text line");

// ListBox 
Window.AddControl(9,10,0,72,80,14,"Variant 1|Variant 2");

// Combobox
Window.AddControl(10,11,0,82,80,29,"Tips 1|Tips 2"); 

// The vertical scrollbar
Window.AddControl(11,12,82,48,58,34,"The vertical scrollbar");

// Both scrollbars
Window.AddControl(12,13,82,84,58,34,"Both scrollbars");

// You can load the bitmap file
Window.AddControl(0,16,54,112,40,40,"1.bmp");

// The progressbar
Window.AddControl(1024,17,0,120, 136, 12, "50");

function WM_COMMAND(id)
{ 
  var shell=new ActiveXObject("WScript.Shell");
  if (id == 1) 
  {  // How to get the information fro fields?
     var text = Window.GetControlText(11);
     shell.Popup(text,0,"Controls",0);
     //Window.SetControlText(7,"Hello World!!!");
     Window.ChangeIcon(1000,"%SystemRoot%\\System32\\WScript.exe", 3);
  };
};

'VBScript
Window.width = 40 * Window.cxChar
Window.height = 20 * Window.cyChar

' The Coordinates by flap are assigned not in pixel!!!!
' The Special dialogue coordinates:
'             Õ: In 1/4 widths of the symbol
'             Y: In 1/8 heights of the symbol

' AddControl id,type,Xdlg,Ydlg,Wdlg,Hdlg,"Text"

' The simple buttons:
Window.AddControl 1, 0, 0, 0, 80,12,"Usual button"
Window.AddControl 2, 1, 0,12, 80,12,"By default"

' Radiobutton 
Window.AddControl 3,3,85,0,80,12,"First"
Window.AddControl 4,15,85,10,80,12,"Second" 'checked

' Checkbox 
Window.AddControl 5,2,0,24,80,12,"Option 1"
Window.AddControl 6,14,0,32,80,12,"Option 2" 'checked

'The static fields
Window.AddControl 7,5,82,20,50,24,"The left alignment. Carrying the lines"
'Window.AddControl(0,6,82,20,50,24,"The center alignment. Carrying the lines"
'Window.AddControl(0,7,82,20,50,24,"The right alignment. Carrying the lines"

'The standard icons
Window.AddControl 1000,8,0,44,6,6,"32517"  'application
Window.AddControl 0,8,13,44,6,6,"32516"    'info
Window.AddControl 0,8,26,44,6,6,"32514"    'ask
Window.AddControl 0,8,38,44,6,6,"32513"    'stop
Window.AddControl 0,8,52,44,6,6,"32515"  

'The text line
Window.AddControl 8,9,0,60,80,10,"The text line"

'ListBox 
Window.AddControl 9,10,0,72,80,14,"Variant 1|Variant 2"

'Combobox
Window.AddControl 10,11,0,82,80,29,"Tips 1|Tips 2" 

'The vertical scrollbar
Window.AddControl 11,12,82,48,58,34,"The vertical scrollbar"

'Both scrollbars
Window.AddControl 12,13,82,84,58,34,"Both scrollbars"

'You can load the bitmap file
Window.AddControl 0,16,54,112,40,40,"1.bmp"

'The progressbar
Window.AddControl 1024,17,0,120, 136, 12, "50"

Function WM_COMMAND(id)
  Dim shell
  Set shell = CreateObject("WScript.Shell")
  If (id = 1) Then
     'How to get the information fro fields?
      text = Window.GetControlText(11)
      shell.Popup text,0,"Controls",0
      'Window.SetControlText 7,"Hello World!!!"
       Window.ChangeIcon 1000,"%SystemRoot%\\System32\\WScript.exe", 3
  End If
End Function

Notes:

1. The identifiers of the checking must be a different number. The exception - a static controls.
2. Window.ChangeIcon(id_control_icon, path_to_dll_or_exe, number_icon)

   The "ChangeIcon" function changes the icon from the specified executable file, dynamic-link library (DLL), or icon file. You can use the "Window.CountIcons(path_to_dll_or_exe)" function - returns the total number of icons in the specified file.

3. Dynamic change: Window.DelControl(id); Window.UpdateWindow();
4. Key Tab possible consecutively move focus of the entering between checking, allowing change of contents. (The exception - Combobox)
5. Get the field content by id:
   Window.GetControlText(id)
6. Set the field content by id:
   Window.SetControlText(id, text). For Listbox: text == index