Sombreros

En esta, la primera pagina del proyecto con estos botones al oprimirlo nos manda a los siguientes formularios ya sea el de playeras o el de jugadores.
CODIGO.
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles Button4.Click
Form3.Show()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form4.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

En la sección de playeras se utilizoel MsgBox que te da el precio de la playera cuando oprimes la imagen que fue insertada con el PictureBox, también dentro de un GroupBox están los RadioButton cuando seleccionas uno te da una pequeña descripción de la playera que hallas escogido, también contiene un botón que te manda a la sección de jugadores, también dentro de esta sección se utiliza el MenuStrip y el OpenFile dialog con ellospuedes insertar la imagen que tu quieras para darle tu toque a esta pagina.

CODIGO.
Public Class Form2

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
MsgBox("El precio de esta playera es de $650")
End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles PictureBox2.Click
MsgBox("El precio de esta playera es de $450")
End Sub

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
MsgBox("El precio de esta playera es de $400")
End Sub

Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesPictureBox4.Click
MsgBox("El precio de esta playera es de $400")
End Sub

Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
MsgBox("El precio de esta playera es de $400")
End Sub

Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesAbrirToolStripMenuItem.Click
OpenFileDialog1.Filter = "mapa de bits (*.bmp)|*.JPG"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox6.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
CerrarToolStripMenuItem.Enabled = True
End If
End Sub

Private Sub CerrarToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles CerrarToolStripMenuItem.Click
PictureBox6.Image = Nothing

CerrarToolStripMenuItem.Enabled = False

End Sub

Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
End
End Sub

Private Sub RadioButton1_CheckedChanged(ByValsender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
TextBox1.Text = "Playera local"
TextBox1.Visible = True
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
TextBox1.Text = "3er Uniforme"
TextBox1.Visible = True
EndSub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.Text = "Playera local"
TextBox1.Visible = True
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
TextBox1.Text...