label vil ikke ændre sig

Jeg har en Label (kaldet curfile)
En knap (Button1)
og en Public Sub (feditdl)

feditdl:

Public Sub feditdl(ByVal file As String)
Dim Form1 As New Form1
Form1.curfile.Text = file

  --en masse code
End Sub


Button1:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        feditdl("keydb.xml")
    End Sub



alt er skrevet i Public Class Form1.. hvorfor vil den ikke skrive "keydb.xml" til curfile?