diff --git a/app/DD-Record-Organiser/frmMain.vb b/app/DD-Record-Organiser/frmMain.vb index 6aef627..750a77f 100644 --- a/app/DD-Record-Organiser/frmMain.vb +++ b/app/DD-Record-Organiser/frmMain.vb @@ -324,6 +324,8 @@ Public Class frmMain Dim bimg() As Byte = row.Item("MENU_IMG") Dim bitmap As Bitmap = ByteArrayToBitmap(bimg) image2 = bitmap + Else + image2 = My.Resources.changechartlegendalignment_32x32 End If Dim title = row.Item("FORM_TITLE") If title = "CAPTION (OBJ) NOT TRANSLATED" Then @@ -348,6 +350,7 @@ Public Class frmMain AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick groupQuickAccessForm.ItemLinks.Add(item) + image2 = Nothing Next End If