Sub DisplayPartPic(Pth As String, FN As String)
Dim B As Bitmap, I As ImageView2
Try
B = LoadBitmap(Pth, FN)
I.Initialize(B, PicPanl, Colors.LightGray, "1", Activity)
PicPanl.Visible = True
Catch
'Msgbox("Error loading " & FN & CRLF & LastException, "DisplayPartPic") 'remmed 7/19/14 - Uneeded?
If File.Exists(Pth, FN) Then
File.Delete(Pth, FN)
End If
NoPic.Text="There was an error loading " & FN & CRLF & "Click here to view docs."
NoPic.Visible=True
NoPic.Left = PicPanl.Left
NoPic.Top = PicPanl.Top
End Try
End Sub