Visual Basic

System.InvalidOperationException was unhandled
  Message="An error occurred creating the form. See Exception.InnerException for details.  The error is: Object reference not set to an instance of an object."
  Source="Software"
  StackTrace:
       at Barcode_Software.My.MyProject.MyForms.Create__Instance__[T](T Instance) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 190
       at Software.My.MyProject.MyForms.get_Form1()
       at Software.My.MyApplication.OnCreateMainForm() in E:\Software\Software\My Project\Application.Designer.vb:line 35
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       at Software.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81

Friend Function CreateThumbNail(ByVal ImagePathName As String, ByVal ThumbNailWidth As Integer, ByVal ValueIsPercentage As Boolean) As System.Drawing.Image
    Dim imgWidth As Integer = 0
    Dim imgHeight As Integer = 0
    Dim thumbFactor As Double = 0
    Dim intChangeFactor As Integer = 150

    Try

        Dim sourceBitmap As New Bitmap(Image.FromFile(ImagePathName))
        Dim destBitmap As Image

        If ValueIsPercentage = False Then
            If sourceBitmap.Width > sourceBitmap.Height Then
                'based on width
                If ThumbNailWidth = 0 Then
                    thumbFactor = 125 / sourceBitmap.Width
                Else
                    thumbFactor = ThumbNailWidth / sourceBitmap.Width
                End If
            Else
                'based on height
                If ThumbNailWidth = 0 Then
                    thumbFactor = 125 / sourceBitmap.Height
                Else
                    thumbFactor = ThumbNailWidth / sourceBitmap.Height
                End If
            End If
            imgWidth = CInt(sourceBitmap.Width * thumbFactor)
            imgHeight = CInt(sourceBitmap.Height * thumbFactor)
        Else
            imgWidth = sourceBitmap.Width * (ThumbNailWidth / 100)
            imgHeight = sourceBitmap.Height * (ThumbNailWidth / 100)
        End If

        If imgWidth > intChangeFactor Or imgHeight > intChangeFactor Then
            destBitmap = New Bitmap(imgWidth, imgHeight)
            Dim destGraphic As Graphics = Graphics.FromImage(destBitmap)
            destGraphic.DrawImage(sourceBitmap, 0, 0, destBitmap.Width + 1, destBitmap.Height + 1)
            destGraphic.Dispose()
            'Force GC?
            destGraphic = Nothing
        Else
            destBitmap = sourceBitmap.GetThumbnailImage(imgWidth, imgHeight, Nothing, New IntPtr())
        End If
        sourceBitmap.Dispose()
        sourceBitmap = Nothing

        Thread.Sleep(500)
        Return destBitmap

    Catch ex As Exception

        Return Nothing

    End Try
End Function