Creamos un Proyecto nuevo, buscamos una imagen de fondo de una pista de tennis, la ponemos en fondo del formulario:
Creamos dos botones para añadir los puntos del partido de tennis del jugador 1 y el jugador 2 de esta forma se añadiran a unas textbox creadas en el inicio del formulario:
Para dar ventaja a un jugador o otro engancharemos en la parte inferior de los textbosx de los jugadores una V que mostrara que jugador tiene la ventaja en ese momento del partido como se muestra en la imagen siguientemente mostrada a continuacion:
Con el siguiente codigo en los boton:
indice1 = indice1 + 1
If indice1 = 1 Then pt1.Text = pt1.Text + 15
If indice1 = 2 Then pt1.Text = pt1.Text + 15
If indice1 = 3 Then pt1.Text = pt1.Text + 10
If indice1 >= 4 And pt1.Text = pt2.Text Then Label3.Visible = True
If indice1 >= 4 And pt1.Text > pt2.Text Then
txset1.Text = Val(txset1.Text) + 1