QTP DOTNetFactory (5): Creating a Custom Form with Multiple Objects

With DOTNetFactory
	'Form
	Set oForm = .CreateInstance("System.Windows.Forms.Form", "System.Windows.Forms")
	'Button
	Set oButton = .CreateInstance("System.Windows.Forms.Button", "System.Windows.Forms")
	'CheckBox
	Set oCheckBox = .CreateInstance("System.Windows.Forms.CheckBox", "System.Windows.Forms")
	'TextBox
	Set oTextBox = .CreateInstance("System.Windows.Forms.TextBox", "System.Windows.Forms")
 
	'Point
	Set oPoint = .CreateInstance("System.Drawing.Point", "System.Drawing", x, y)
End With
 
CONST txtWidth = 150
CONST pntStart = 20
 
'TextBox
With oPoint
	.x = pntStart
	.y = pntStart
End With
With oTextBox
	.Location = oPoint
	.Width = txtWidth
	.Name = "txtSample"
	.Text = "Enter a value"
End With
 
'CheckBox
With oPoint
	'Place the CheckBox to the right of the TextBox
	.x = pntStart + txtWidth + 20
	.y = 20
End With
With oCheckBox
	.Location = oPoint
	.Name = "chkSample"
	.Text = "CheckBox"
End With
 
'Button
With oPoint
	.x = pntStart
	.y = pntStart + 40
End With
With oButton
	.Location = oPoint
	.Width = CInt(oForm.Width) - (3*pntStart)
	.Text = "Close Form"
End With
 
'Form
With oForm
	'Set Form Height
	.Height = 200
	.Controls.Add oTextBox
	.Controls.Add oCheckBox
	'Adding a Cancel Button
	.CancelButton = oButton
	.Controls.Add oButton
End with
 
'Show Dialog
oForm.ShowDialog
 
With oTextBox
	If LCase(.Text) = "enter a value" Then
		MsgBox "You did not enter a value in the Text Box Control"
	Else
		MsgBox "New Text Box value: " & .Text
	End If
End with
 
With oCheckBox
	Dim sStatus
	sStatus = "ON"
	If CBool(.Checked) = False Then sStatus = "OFF"
	MsgBox "CheckBox Status: " & sStatus
End with