AddSpacing Method

Adds vertical spacing between rows of controls.

object.AddSpacing height
 

Arguments

object

Required.  A variable containing a dialog object created by calling CreateObject or new ActiveXControl.

height

Required. Height in pixels of the spacing to provide.

Remarks
None.

Example

Sub main
  ' Create the dialog box
  Set Dialog = CreateObject("TPFSoftware.ScriptDialog")
  ' Add a message
  Dialog.AddText "Please press a button"
  ' Add a row of vertical spacing 40 pixels high
  Dialog.AddSpacing 40
  ' Add a row of buttons
  Dialog.AddButtons "spice", Array("OK", "Cancel")
  ' Display the dialog box
  Set Result = Dialog.Execute
End Sub