Public Sub Form_Open()
\'\'NOTE: Pongo valores iniciales, esto se pueden modificar segun lo que escriba el usuario
TextBox1.text = "escriba aqui!!!"
TextEdit1.wrap = True
TextEdit1.RichText = "<h1>Hola</h1> <font color=\\"blue\\"> azul </font> <u><font color=\\"red\\"> rojo subrayado </font></u>"
TextArea1.wrap = True
TextArea1.Text = "Texto largo que se puede mostrar en el control completamente"
MaskBox1.Mask = "##0<.##0<.##0<.##0<" \'para introducir un IP
ValueBox1.value = 23.44
DateBox1.Value = Date(2014, 1, 28)
End
Public Sub ButtonBox1_Click()
Print "has pulsado el boton del ButtonBox"
\'aqui abririas un formulario o cuadro de dialog para obtener datos
\'.....
\'.....
ButtonBox1.text = "Pulsado Boton!!"
End