Invalid picture

I'm getting "Invalid Picture" error when I run this code. Would like assistance to understand why?

Code:

---

Sub PLCandlesticks()
Dim MyChart As Chart, OHLCChart As ChartObject
Dim FName As String


Set Wks = ActiveSheet
Set OHLCChart = Wks.ChartObjects.Add(Left:=Range("a9").Left, Width:=400, Top:=Range("a9").Top, Height:=250) 'Create candlestick chart


With OHLCChart.Chart
    .ChartArea.Height = 360
    .ChartArea.Width = 699
    .SetSourceData Source:=Range("tblChartData")
    .ChartType = xlStockOHLC
    .Axes(xlCategory).CategoryType = xlCategoryScale
    .HasLegend = False
    .PlotArea.Format.Fill.ForeColor.RGB = RGB(220, 230, 241)
    .ChartArea.Format.Line.Visible = msoFalse
    .Axes(xlCategory).TickLabelPosition = xlTickLabelPositionLow
    With .ChartGroups(1)
        .UpBars.Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
        .DownBars.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
    End With
    .Parent.Name = "OHLC Chart"
End With


Set MyChart = Wks.ChartObjects("OHLC Chart").Chart
FName = Environ("temp") & "\temp.gif"
MyChart.Export Filename:=FName, FilterName:="GIF"


frmChart.Image.Picture = LoadPicture(FName)
Wks.ChartObjects(1).Delete
Kill FName
End Sub

---