From b6d9a7952e2c08d7c64415a2a7ec447afa648205 Mon Sep 17 00:00:00 2001
From: JenneJ <j.jenne@didalog.de>
Date: Fri, 4 Nov 2016 15:26:17 +0100
Subject: [PATCH] jj 04.11 adddefault image for constructor forms

---
 app/DD-Record-Organiser/frmMain.vb | 3 +++
 1 file changed, 3 insertions(+)

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