Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb

@@ -127,14 +127,16 @@ Public Class ClassFilehandle
                 Else
                     oMSG = "Shortcuts cannot be droppped!"
                 End If
-                Dim oMsgBox As New frmDialog(oMSG, "", True)
+                Dim oMsgBox As New frmDialog(oMSG, "FileHandle", frmDialog.DialogType.Warning)
                 oMsgBox.ShowDialog()
                 Return False
             End If
 
             Return UserFiles.Insert_GI_File(oTempFilePath, pHandletype)
         Catch ex As Exception
-            MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
+            Dim oMsgBox As New frmDialog(ex.Message, "Decide_FileHandle", frmDialog.DialogType.Error)
+            oMsgBox.ShowDialog()
+
             Return False
         End Try
     End Function