Visual Basic.NET - Pasar datos de un Combobox a un Label

Private Sub boton_Click(sender As System.Object, e As System.EventArgs) Handles boton.Click

    Using f As New formulario2(combobox.Selectedvalue)

         f.ShowDialog()

    End Using

end sub

Dim p_label1 as string

Sub New(p1 As string)

    p_label1 = p1

    InitializeComponent()

End Sub

Private Sub Formulario2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    label1.text = p_label1

end sub