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