' in the main
 f1.SaveAs(savePath)
 Dim img As Drawing.Bitmap
 img = createThumnail(savePath, 50, 50)

Private Function createThumnail(ByVal ImagePath As String, ByVal tWidth As Double, ByVal tHeight As Double) As Drawing.Bitmap
        Dim g As System.Drawing.Image = System.Drawing.Image.FromFile(ImagePath)
        Dim

  Dim savePath As String = Server.MapPath("picture\")
       If (f1.HasFile) Then
         pnlUpload.Visible = False
         lblMessage.Text = "<embed align=bottom src=""inc/u.swf"" ></embed>"
    Dim fileName As String = f1.FileName
Try
  savePath &= CInt(intPic) & "."