[Cadastro Atletas com foto - ajuda por favor]

Boa tarde ! Tudo bem com voces?
Preciso de uma pequena ajuda, eu estou a fazer um sistema para ginasio que é para apresentar na escola, quero este sistema o cadastro dos atletas seja com imagem mas eu fiquei meio confuso e não estou a conseguir fazer o codigo para a imagem, alguém me pode ajudar?
Vou postar aqui o codigo :
vou meter a bold, italico e vermelho onde preciso de ajuda, muito obrigado !

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

    If validar() = False Then
    Exit Sub
    Else

    Dim adapter_atletas As New pombalenseDataSetTableAdapters.AtletasTableAdapter
    Try
    Dim verificar_registo = From Atletas In Me.PombalenseDataSet.Atletas Where (Atletas.NomeAtleta = NomeAtletaTextBox.Text)
    If verificar_registo.Count > 0 Then
    MsgBox("Já existe um registo com estes dados")
    Else
    adapter_atletas.Insert(NomeAtletaTextBox.Text, DataNascimentoDateTimePicker.Text, MoradaTextBox.Text, EmailTextBox.Text, ModalidadeComboBox.Text, FotoPictureBox)
    Me.Validate()
    Me.AtletasBindingSource.EndEdit()
    Me.TableAdapterManager.UpdateAll(Me.PombalenseDataSet)
    MsgBox("Registo adicionado com sucesso!", MsgBoxStyle.Information, Me.Text)
    End If
    Catch ex As Exception
    MsgBox(ex.Message)
    IDAtletaTextBox.SelectAll()
    IDAtletaTextBox.Focus()
    End Try

    End If

    limpar()

    End Sub