codigoformulariomarcador

Public Sub _new()

End

Public Sub Form_Open()

  definegrid()

End

Public Sub definegrid()

  With GridView1
    .header = 3
    .rows.count = 0
    .columns.count = 3
    .Columns[0].title = "Jugador"
    .Columns[1].title = "Pais"
    .Columns[2].title = "Puntos"
    .Columns[0].width = 100
    .Columns[1].width = 100
    .Columns[2].width = 50
    .font.name = "Times"
    .font.size = 12

  End With

End

Public Sub ButtonActualizar_Click()

  leermarcador("", TextBoxJugador.text, TextBoxpais.text, ValueBoxPuntos.value)

End

Public Sub ButtonLeerMarcador_Click()

  leermarcador("", "", "", 0)

End