'generic hardcoded OCX objects gb32

Global b%

'generic form FormName
Local FormName_px1% = 10
Local FormName_py1% = 50
Local FormName_pwd% = 435
Local FormName_pht% = 400
Form FormName = "FormName", FormName_px1%, FormName_py1%, FormName_pwd%, FormName_pht%
FormName.Width = FormName_pwd% * FormName.TwipsPerPixelX
FormName.Height = FormName_pht% * FormName.TwipsPerPixelY
FormName.Appearance = 0
FormName.BackColor = RGB(240, 240, 240)
FormName.BorderStyle = 2 '0=none 1=single 2=double
FormName.Caption = "Form Hardcoded OCX Example"
FormName.ControlBox = True
FormName.MaxButton = False
FormName.MinButton = False
FormName.OnTop = True
FormName.AutoRedraw = True
FormName.ToolTipText = "Form"

'generic ToolBar ToolBarName
'Note Top,Left and Width, Height
'Not Direct Reference Assignable with Ocx
Ocx ToolBar  ToolBarName = "ToolBarName"
ToolBarName.Appearance = 1
ToolBarName.BorderStyle = 3
ToolBarName.ToolTipText = "ToolBar"

'generic label LabelName
Local LabelName_px1% = 10
Local LabelName_py1% = 50
Local LabelName_pwd% = 100
Local LabelName_pht% = 25
Ocx Label LabelName = "LabelName", LabelName_px1%, LabelName_py1%, LabelName_pwd%, LabelName_pht%
LabelName.BorderStyle = 1 '0=none 1=single 2=double
LabelName.Alignment = 2 '0=left 1=right 2=centered
LabelName.Appearance = 9
LabelName.BackColor = RGB(192, 192, 192)
LabelName.ForeColor = RGB(0, 0, 0)
LabelName.FontName = "Arial"
LabelName.FontSize = 8
LabelName.FontBold = False
LabelName.Caption = "Label"
LabelName.Enabled = True
LabelName.MultiLine = True
LabelName.ToolTipText = "Label"

'generic Button ButtonName
Local ButtonName_px1% = 10
Local ButtonName_py1% = 80
Local ButtonName_pwd% = 100
Local ButtonName_pht% = 25
Ocx Command ButtonName = "ButtonName" , ButtonName_px1%, ButtonName_py1%, ButtonName_pwd%, ButtonName_pht%
ButtonName.Caption = "Button"
ButtonName.TabStop = True
ButtonName.FontSize = 8
ButtonName.FontName = "Arial"
ButtonName.FontBold = False
ButtonName.ToolTipText = "Button or Command"

'generic Frame FrameName
Local FrameName_px1% = 10
Local FrameName_py1% = 110
Local FrameName_pwd% = 100
Local FrameName_pht% = 25
Ocx Frame FrameName = "FrameName" , FrameName_px1%, FrameName_py1%, FrameName_pwd%, FrameName_pht%
FrameName.BackColor =  RGB(240, 240, 240)
FrameName.ForeColor =  RGB(0, 0, 0)
FrameName.FontSize = 8
FrameName.FontName = "Arial"
FrameName.FontBold = False
FrameName.BorderStyle = 1
FrameName.Caption = "Frame"
FrameName.ToolTipText = "Frame"

'generic CheckBox CheckBoxName
Local CheckBoxName_px1% = 10
Local CheckBoxName_py1% = 140
Local CheckBoxName_pwd% = 100
Local CheckBoxName_pht% = 25
Ocx CheckBox CheckBoxName = "CheckBoxName" , CheckBoxName_px1%, CheckBoxName_py1%, CheckBoxName_pwd%, CheckBoxName_pht%
CheckBoxName.Caption = "CheckBox"
CheckBoxName.Value = 1 '0=not checked 1=checked
CheckBoxName.ThreeState = False
CheckBoxName.BackColor =  RGB(192, 192, 192)
CheckBoxName.ForeColor =  RGB(0, 0, 0)
CheckBoxName.ToolTipText = "CheckBox"

'generic Option OptionName
Local OptionName_px1% = 10
Local OptionName_py1% = 170
Local OptionName_pwd% = 100
Local OptionName_pht% = 20
Ocx Option OptionName = "OptionName" , OptionName_px1%, OptionName_py1%, OptionName_pwd%, OptionName_pht%

OptionName.Caption = "Option"
OptionName.Appearance = 1 '0=flat 1=3d
OptionName.Value = 1
OptionName.ToolTipText = "Option"

'generic UpDown UpDownName
Local  UpDownName_Left% = 10
Local  UpDownName_Top% = 170 'oddly relative to toolbar not form
Local  UpDownName_pwd% = 100
Local  UpDownName_pht% = 20
Ocx UpDown  UpDownName = " UpDownName",  UpDownName_Left%,  UpDownName_Top%,  UpDownName_pwd%,  UpDownName_pht%
UpDownName.Left = UpDownName_Left%
UpDownName.Top = UpDownName_Top%
UpDownName.Width = 100
UpDownName.Height = 20
UpDownName.Min = 1
UpDownName.Max = 10
UpDownName.Value = UpDownName.Min
UpDownName.Horizontal = False
UpDownName.Enabled = True
UpDownName.ToolTipText = "UpDown"

Ocx ListView  ListViewName = "ListView", 10, 240, 210, 80
ListViewName.BackColor = RGB(240, 240, 240)
ListViewName.TextBackColor = RGB(0, 100, 0)
ListViewName.View = 3
ListViewName.FullRowSelect = 1
ListViewName.GridLines = 1
ListViewName.ColumnHeaders.Add  , , "A"
ListViewName.ColumnHeaders.Add , , "B"
ListViewName.ColumnHeaders.Add  , , "C"

'generic TextBox  TextBoxName
Local  TextBoxName_px1% = 120
Local  TextBoxName_py1% = 50
Local  TextBoxName_pwd% = 100
Local  TextBoxName_pht% = 16
Ocx TextBox  TextBoxName = " TextBoxName",  TextBoxName_px1%,  TextBoxName_py1%,  TextBoxName_pwd%,  TextBoxName_pht%
TextBoxName.Text = "TextBox"
TextBoxName.BorderStyle = 1
TextBoxName.BackColor = RGB(255, 255, 255)
TextBoxName.ForeColor = RGB(0, 0, 0)
TextBoxName.ToolTipText = "TextBox"

'generic ListBox  ListBoxName
Local  ListBoxName_px1% = 120
Local  ListBoxName_py1% = 80
Local  ListBoxName_pwd% = 100
Local  ListBoxName_pht% = 16
Ocx ListBox  ListBoxName = "ListBoxName",  ListBoxName_px1%,  ListBoxName_py1%,  ListBoxName_pwd%,  ListBoxName_pht%
ListBoxName.BorderStyle = 1
ListBoxName.BackColor = RGB(255, 255, 255)
ListBoxName.ForeColor = RGB(0, 0, 0)
ListBoxName.ToolTipText = "ListBox"
ListBoxName.AddItem "ListBox"

'generic ComboBox  ComboBoxName
Local  ComboBoxName_px1% = 120
Local  ComboBoxName_py1% = 110
Local  ComboBoxName_pwd% = 100
Local  ComboBoxName_pht% = 16
Ocx ComboBox  ComboBoxName = "ComboBox",  ComboBoxName_px1%,  ComboBoxName_py1%,  ComboBoxName_pwd%,  ComboBoxName_pht%
ComboBoxName.BorderStyle = 1
ComboBoxName.BackColor = RGB(255, 255, 255)
ComboBoxName.ForeColor = RGB(0, 0, 0)
ComboBoxName.ToolTipText = "ComboBox"
ComboBoxName.AddItem "ComboBox"

'generic ProgressBar  ProgressBarName
Local  ProgressBarName_px1% = 120
Local  ProgressBarName_py1% = 140
Local  ProgressBarName_pwd% = 100
Local  ProgressBarName_pht% = 20
Ocx ProgressBar  ProgressBarName = " ProgressBarName",  ProgressBarName_px1%,  ProgressBarName_py1%,  ProgressBarName_pwd%,  ProgressBarName_pht%
ProgressBarName.BorderStyle = 1
ProgressBarName.ToolTipText = "ProgressBar"

'generic Slider  SliderName
Local  SliderName_px1% = 120
Local  SliderName_py1% = 170
Local  SliderName_pwd% = 100
Local  SliderName_pht% = 20
Ocx Slider  SliderName = " SliderName",  SliderName_px1%,  SliderName_py1%,  SliderName_pwd%,  SliderName_pht%
SliderName.BorderStyle = 1
SliderName.ToolTipText = "Slider"

'generic Scroll ScrollName
Local  ScrollName_Left% = 120
Local  ScrollName_Top% = 170 'oddly relative to toolbar not form
Local  ScrollName_pwd% = 100
Local  ScrollName_pht% = 20
Ocx Scroll  ScrollName = " ScrollName",  ScrollName_Left%,  ScrollName_Top%,  ScrollName_pwd%,  ScrollName_pht%
ScrollName.Left = ScrollName_Left%
ScrollName.Top = ScrollName_Top%
ScrollName.Width = 100
ScrollName.Height = 20
ScrollName.Min = 1
ScrollName.Max = 10
ScrollName.Value = ScrollName.Min
ScrollName.Enabled = True
ScrollName.ToolTipText = "ScrollBar"

'generic MonthView MonthViewName
Local  MonthViewName_px1% = 230
Local  MonthViewName_py1% = 50
Local  MonthViewName_pwd% = 100
Local  MonthViewName_pht% = 60
Ocx MonthView  MonthViewName = "MonthViewName",  MonthViewName_px1%,  MonthViewName_py1%,  MonthViewName_pwd%,  MonthViewName_pht%
MonthViewName.BorderStyle = 1
MonthViewName.BackColor = RGB(255, 255, 255)
MonthViewName.ForeColor = RGB(0, 0, 0)
MonthViewName.ToolTipText = "MonthView"

Local  ImageName_px1% = 230
Local  ImageName_py1% = 180
Local  ImageName_pwd% = 185
Local  ImageName_pht% = 42
Ocx Image ImageName = "ImageName",  ImageName_px1%,  ImageName_py1%,  ImageName_pwd%,  ImageName_pht%
ImageName.BorderStyle = 1
ImageName.BackColor = RGB(255, 255, 255)
ImageName.ToolTipText = "Image"
ImageName.Left = ImageName_px1%
ImageName.Top = ImageName_py1%
ImageName.Width = ImageName_pwd%
ImageName.Height = ImageName_pht%

Ocx RichEdit RichEditName = "RichEditName", 230, 265, 185, 60
RichEditName.BorderStyle = 1
RichEditName.BackColor = RGB(255, 255, 255)
RichEditName.ToolTipText = "RichEdit"

'##E#
Ocx StatusBar StatusBarName = "StausBarName"
StatusBarName.BorderStyle = 0
StatusBarName.ToolTipText = "StatusBar"

Do : Sleep : Until Me Is Nothing
$DatFile
$FormVersion = 2
:{frm1 65
EAAAAe/QAAQJDBAAWWEAAEWRvAwAmJXbxAgElCAAE00UgMFalxGbgQEbnBAAAAACAAAgPAAAACAA
AEAAHAAgAAA=
$LanguageId = 0409
$DatFile