Usando With…End With

' Gambas class file

'aqui declaramos una variable de tipo button
'(para crear un boton a base de codigo y no con la intefaz grafica)
Public MiBotonPersonalizado As Button


Public Sub Form_Open()

  With Me
    .Center
    .Text = "Ejemplo de como usar with...end...with"
    .Background = &H007FFF
    .Foreground = &HFFFFFF
    .Width = 400
    .Height = 450
    .Font.Bold = True  
    .Font.Italic = True
  End With
  'aqui inicializamos la variable button y declaramos que su contenedor sera el formulario llamado Fwith
  'en donde aparecera el boton
  MiBotonPersonalizado = New Button(FWith)
' y aqui otro ejemplo de como usar with
With MiBotonPersonalizado
  .Text = "Ejemplo de como usar with...end..with"
  .Background = &H000000
  .Foreground = &HFFFFFF
  .X = 50
  .y = Me.Width / 2
  .Width = 300
  .Height = 50
  .Font.Bold = True
  .Font.Italic = True
End With


End

Código fuente: Usando_with-0.0.1.tar.gz