Cleaning up Document Converter wizard, moving graphics from bmp to png

wizards/source/importwizard/Main.xba

@@ -21,8 +21,8 @@
  *
  ***********************************************************-->
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Main" script:language="StarBasic">Option Explicit
+REM ***** BASIC *****
 
-&apos;  *****  BASIC  *****
 Public HeaderPreviews(4) as Object
 Public ImportDialog as Object
 Public ImportDialogArea as Object
@@ -79,7 +79,6 @@ RTError:
 End Sub
 
 
-
 Sub NextStep()
 Dim iCurStep as Integer
 	If Not bDebugWizard Then
@@ -124,7 +123,6 @@ RTError:
 End Sub
 
 
-
 Sub PrevStep()
 Dim iCurStep as Integer
 	If Not bDebugWizard Then
@@ -156,7 +154,6 @@ RTError:
 End Sub
 
 
-
 Sub CancelTask()
 	If bConversionIsRunning Then
 		If Msgbox(sConvertError1, 36, sConvertError2) = 6 Then
@@ -186,9 +183,9 @@ Dim LocPrefix as String
 	LocPrefix = WizardMode
 	LocPrefix = ReplaceString(LocPrefix,&quot;XML&quot;, &quot;SO&quot;)
 	If CurStep = 2 Then
-		sBitmapPath = SOBitmapPath &amp; LocPrefix &amp; &quot;-Import_&quot; &amp; CurStep &amp; &quot;-&quot; &amp; Applications(CurOffice,SBAPPLKEY) + 1 &amp; &quot;.bmp&quot;
+		sBitmapPath = SOBitmapPath &amp; LocPrefix &amp; &quot;-Import_&quot; &amp; CurStep &amp; &quot;-&quot; &amp; Applications(CurOffice,SBAPPLKEY) + 1 &amp; &quot;.png&quot;
 	Else
-		sBitmapPath = SOBitmapPath &amp; &quot;Import_&quot; &amp; CurStep &amp; &quot;.bmp&quot;
+		sBitmapPath = SOBitmapPath &amp; &quot;Import_&quot; &amp; CurStep &amp; &quot;.png&quot;
 	End If
 	ImportDialog.ImportPreview.ImageURL = sBitmapPath
 End Sub