diff --git a/VECTO/GUI/F_MAINForm.vb b/VECTO/GUI/F_MAINForm.vb
index e92ae1648f4fd0a833be3104f315c0fb7ba02c67..d0359c5fee500c4aebb21081cf66a656ff018769 100644
--- a/VECTO/GUI/F_MAINForm.vb
+++ b/VECTO/GUI/F_MAINForm.vb
@@ -1656,12 +1656,18 @@ Imports System.Text
 
 	Private Sub VectoWorkerV3_OnProgressChanged(sender As Object, e As ProgressChangedEventArgs)
 		ToolStripProgBarOverall.Value = e.ProgressPercentage
+
+		Dim MessageType As tMsgID = tMsgID.Normal
+		If Not e.UserState.GetType().GetProperty("MessageType") Is Nothing Then
+			MessageType = e.UserState.MessageType
+		End If
+
 		Select Case e.UserState.Target
 			Case "ListBox"
 				If e.UserState.GetType().GetProperty("Link") Is Nothing Then
-					MSGtoForm(tMsgID.Normal, e.UserState.Message, "", "")
+					MSGtoForm(MessageType, e.UserState.Message, "", "")
 				Else
-					MSGtoForm(tMsgID.Normal, e.UserState.Message, "", e.UserState.Link)
+					MSGtoForm(MessageType, e.UserState.Message, "", e.UserState.Link)
 				End If
 			Case "Status"
 				Status(e.UserState.Message)