evento Leave y Enter

' Gambas class file

Public Sub _new()

  Me.center 'centro formulario

End

Public Sub Form_Open()

End

Public Sub Label1_Enter()

  Label1.Background = Color.Red
  LabelMensaje.text = "Has entrado en la " & Last.name

End

Public Sub Label1_Leave()

  Label1.Background = Color.Background 'lo dejo con la letra por defecto
  LabelMensaje.text = "Sales del " & Last.name

End

Public Sub Label2_Enter()
  'cambio de color letra

  Label2.Foreground = Color.Blue
  'cambio a negrita
  Label2.font = Font[",,Bold"]
  LabelMensaje.text = "Has entrado en la " & Last.name

End

Public Sub Label2_Leave()

  Label2.Foreground = Color.Foreground 'lo dejo con la letra por defecto
  Label2.font = Font[",,"] 'lo dejo con la letra por defecto
  LabelMensaje.text = "Sales del " & Last.name

End

Public Sub Label3_Enter()
  'cambio tipo de letra, tamaño, negrita, cursiva y subrayado

  Label3.font = Font["Arial,14,Bold,Italic,Underline"]
  LabelMensaje.text = "Has entrado en la " & Last.name

End

Public Sub Label3_Leave()

  Label3.font = Font[",,"] 'lo dejo con la letra por defecto
  LabelMensaje.text = "Sales del " & Last.name

End