document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Sub _new()
  2.  
  3. End
  4.  
  5. Public Sub Form_Open()
  6.  
  7.   definegrid()
  8.  
  9. End
  10.  
  11. Public Sub definegrid()
  12.  
  13.   With GridView1
  14.     .header = 3
  15.     .rows.count = 0
  16.     .columns.count = 3
  17.     .Columns[0].title = "Jugador"
  18.     .Columns[1].title = "Pais"
  19.     .Columns[2].title = "Puntos"
  20.     .Columns[0].width = 100
  21.     .Columns[1].width = 100
  22.     .Columns[2].width = 50
  23.     .font.name = "Times"
  24.     .font.size = 12
  25.  
  26.   End With
  27.  
  28. End
  29.  
  30. Public Sub ButtonActualizar_Click()
  31.  
  32.   leermarcador("", TextBoxJugador.text, TextBoxpais.text, ValueBoxPuntos.value)
  33.  
  34. End
  35.  
  36. Public Sub ButtonLeerMarcador_Click()
  37.  
  38.   leermarcador("", "", "", 0)
  39.  
  40. End
');