document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Sub Form_Open()
  2.   \'\'NOTE: Pongo valores iniciales, esto se pueden modificar segun lo que escriba el usuario
  3.   TextBox1.text = "escriba aqui!!!"
  4.  
  5.   TextEdit1.wrap = True
  6.   TextEdit1.RichText = "<h1>Hola</h1> <font color=\\"blue\\"> azul </font>  <u><font color=\\"red\\"> rojo subrayado </font></u>"
  7.   TextArea1.wrap = True
  8.   TextArea1.Text = "Texto largo que se puede mostrar en el control completamente"
  9.  
  10.   MaskBox1.Mask = "##0<.##0<.##0<.##0<" \'para introducir un IP
  11.  
  12.   ValueBox1.value = 23.44
  13.  
  14.   DateBox1.Value = Date(2014, 1, 28)
  15.  
  16. End
  17.  
  18. Public Sub ButtonBox1_Click()
  19.   Print "has pulsado el boton del ButtonBox"
  20.   \'aqui abririas un formulario o cuadro de dialog para obtener datos
  21.   \'.....
  22.   \'.....
  23.   ButtonBox1.text = "Pulsado Boton!!"
  24. End
');