ladda upp fil - klass

Försöker ladda upp en fil utanför codebehind. Koden ser ut så här:
aspx filen

<form id="Form1" encType="multipart/form-data" runat="server">
<P>Välj en fil: <INPUT id="File1" type="file" runat="server"></P>
<P>Beskrivning:
<asp:textbox id="tbDescription" runat="server" Height="76px" Width="208px" TextMode="MultiLine"></asp:textbox></P>
<P><asp:button id="btnUpload" runat="server" Text="Ladda upp"></asp:button></P>
<P><asp:label id="lblMessage" runat="server"></asp:label></P>
<P><asp:label id="lblMessage2" runat="server"></asp:label></P>
</form>

Inga konstigheter här

i codebehind:

    Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click

        Dim strPath As String = Server.MapPath(".") & "\Pictures\"

        lblMessage.Text = Gallery.SaveFile(strPath, File, tbDescription.Text)

        lblMessage2.Text = Gallery.CreateTumbNail(strPath, File.PostedFile.FileName)

End Sub

och sen i Businessklassen:

    Public Shared Function SaveFile(ByVal strPath As String, ByVal File As Object, ByVal strDesc As String)

        Dim objData As New GalleryDB()

        Dim strFilePath As String = File.PostedFile.FileName ' ***

        Dim strFileName As String = GetName(strFilePath) & "." & GetExtension(strFilePath)

        If Not (File.PostedFile Is Nothing) Then

            Try

                File.PostedFile.SaveAs(strPath & strFileName)

            Catch Exp As Exception

                Return Exp.ToString()

' more code here....

Error: Object variable or With block variable not set. Linjen med ***