Set Form = DotNetFactory.CreateInstance("System.Windows.Forms.Form", "System.Windows.Forms")
Set Text = DotNetFactory.CreateInstance("System.Windows.Forms.TextBox", "System.Windows.Forms")
Set Button = DotNetFactory.CreateInstance("System.Windows.Forms.Button", "System.Windows.Forms")
Set Pos = DotNetFactory.CreateInstance("System.Drawing.Point","System.Drawing",x,y)
Pos.X = 90
Pos.Y = 100
Text.Location = Pos
Text.Width = 100
Pos.X = 100
Pos.Y = 130
Button.Location = Pos
Button.Text = "Close"
Form.Controls.Add Text
Form.Controls.Add Button
Form.CancelButton = Button
Form.ShowDialog
Msgbox Text.Text
Set Text = Nothing
Set Button = Nothing
Set Pos = Nothing
Set Form = Nothing
No comments:
Post a Comment