From gh, 3 Years ago, written in GAMBAS.
Embed
  1. Public Sub pdfviewer_Click()
  2.   FMain2.Show
  3.  
  4. Public Sub Timer1_Timer()
  5.     btnhora.Text = Time(Hour(Now), Minute(Now), Second(Now))
  6.  
  7. Public Sub Form_Resize()
  8.    If inicialResize = 0 Then
  9.       inicialResize = 1
  10.    Else
  11.       orden.restaurarPosiciones(Me)
  12.    Endif
  13.  
  14. Public Sub Form_Arrange()
  15.    If inicioArrange = 0 Then
  16.     orden.crearPosiciones(Me)
  17.     inicioArrange = 1
  18.    Endif
  19.  
  20.  
  21. Public Sub btnSetJugador2_Enter()