controlBox

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