version update

added option to save Userform image resources to file
removed unused procedures and api declares

src/Resources/CONTROLS/Image

@@ -0,0 +1,40 @@
+{
+    "Anchors": {
+        "Bottom": false,
+        "Left": true,
+        "Right": false,
+        "Top": true,
+        "_className": "Anchors",
+        "_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
+    },
+    "Appearance": "vbAppear3d",
+    "BorderStyle": "vbNoBorder",
+    "DataField": null,
+    "DataFormat": null,
+    "DataMember": null,
+    "DataSource": null,
+    "Dock": "vbDockNone",
+    "DragIcon": [],
+    "DragMode": "vbManual",
+    "Enabled": true,
+    "Height": 140,
+    "Index": -1,
+    "Left": 61,
+    "MouseIcon": [],
+    "MousePointer": "vbDefault",
+    "Name": "Image1",
+    "OLEDragMode": "vbOLEDragManual",
+    "OLEDropMode": "vbOLEDropNone",
+    "Picture": [],
+    "PictureDpiScaling": true,
+    "Stretch": false,
+    "Tag": null,
+    "ToolTipText": null,
+    "Top": 55,
+    "Visible": true,
+    "WhatsThisHelpID": 0,
+    "Width": 171,
+    "_className": "Image",
+    "_clsid": "{33AD4F90-6699-11CF-B70C-00AA0060D393}",
+    "_paintedByParent": true
+}

src/source/Resources/CONTROLS/TextBox → src/Resources/CONTROLS/TextBox

@@ -54,7 +54,7 @@
     "Tag": null,
     "Text": "TextBox",
     "TextHint": null,
-                                              "TextHintAlways": true,
+    "TextHintAlways": true,
     "ToolTipText": null,
     "Top": 58,
     "Visible": true,

src/Resources/CONTROLS/UpDown

@@ -0,0 +1,36 @@
+{
+    "Anchors": {
+        "Bottom": false,
+        "Left": true,
+        "Right": false,
+        "Top": true,
+        "_className": "Anchors",
+        "_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
+    },
+    "CausesValidation": true,
+    "Dock": "vbDockNone",
+    "DragIcon": [],
+    "DragMode": "vbManual",
+    "Enabled": true,
+    "Height": 59,
+    "Increment": 1,
+    "Index": -1,
+    "Left": 24,
+    "Max": 10,
+    "Min": 0,
+    "MouseIcon": [],
+    "MousePointer": "vbDefault",
+    "Name": "UpDown1",
+    "OLEDropMode": "vbOLEDropNone",
+    "Orientation": "ccOrientationVertical",
+    "TabIndex": 4,
+    "TabStop": true,
+    "Tag": null,
+    "Top": 223,
+    "Value": 0,
+    "Visible": true,
+    "VisualStyles": true,
+    "Width": 38,
+    "_className": "UpDown",
+    "_clsid": "{98E78A9F-2720-4A7F-A320-905436924746}"
+}

src/source/About.tbform → src/Sources/About.tbform

@@ -77,7 +77,7 @@
 			"showGrid": true,
 			"showOutlines": false
 		},
-		"__lastUpdateMarker": 4200375661,
+		"__lastUpdateMarker": 902329495,
 		"_children": [
 			{
 				"Alignment": "vbLeftJustify",

src/source/About.twin → src/Sources/About.twin

@@ -5,7 +5,7 @@ Class About
 
 	Sub New()
     	lblInfo.Caption = "Author: GCUser99" & vbCrLf & _  
-        "Version: v2.3" & vbCrLf & _  
+        "Version: v2.4" & vbCrLf & _  
         "Description: A VBIDE add-in (complied with twinBASIC) that converts VBA UserForms for use in twinBASIC."
         lblWebsite.Caption = "https://github.com/GCuser99/VBA-UserForm-to-twinBASIC"
         Set Me.Icon = GetImageFromResources("transparent.ico", "IMAGES")

src/source/Converter.tbform → src/Sources/Converter.tbform

@@ -24,7 +24,7 @@
 		"ForeColor": -2147483630,
 		"FormDesignerId": "{BCA94248-FB88-D34B-AE3D-E887439ECECF}",
 		"HasDC": true,
-		"Height": 370,
+		"Height": 406,
 		"HelpContextID": 0,
 		"Icon": "",
 		"Index": -1,
@@ -51,7 +51,7 @@
 		"Picture": "",
 		"PictureDpiScaling": true,
 		"RightToLeft": false,
-		"ScaleHeight": 5550,
+		"ScaleHeight": 6090,
 		"ScaleLeft": 0,
 		"ScaleMode": "vbTwips",
 		"ScaleTop": 0,
@@ -77,7 +77,7 @@
 			"showGrid": true,
 			"showOutlines": false
 		},
-		"__lastUpdateMarker": 2325407002,
+		"__lastUpdateMarker": 917375039,
 		"_children": [
 			{
 				"Anchors": {
@@ -225,7 +225,7 @@
 				"Height": 24,
 				"HelpContextID": 0,
 				"Index": -1,
-				"Left": 180,
+				"Left": 182,
 				"MaskColor": 12632256,
 				"MouseIcon": "",
 				"MousePointer": "vbDefault",
@@ -241,7 +241,7 @@
 				"TabStop": true,
 				"Tag": "",
 				"ToolTipText": null,
-				"Top": 335,
+				"Top": 366,
 				"UseMaskColor": false,
 				"Visible": true,
 				"VisualStyles": true,
@@ -393,7 +393,7 @@
 				"Height": 24,
 				"HelpContextID": 0,
 				"Index": -1,
-				"Left": 88,
+				"Left": 91,
 				"MaskColor": 12632256,
 				"MouseIcon": "",
 				"MousePointer": "vbDefault",
@@ -409,7 +409,7 @@
 				"TabStop": true,
 				"Tag": "",
 				"ToolTipText": null,
-				"Top": 336,
+				"Top": 366,
 				"UseMaskColor": false,
 				"Visible": true,
 				"VisualStyles": true,
@@ -760,7 +760,7 @@
 				"TabStop": true,
 				"Tag": null,
 				"ToolTipText": null,
-				"Top": 309,
+				"Top": 310,
 				"UseMaskColor": false,
 				"Value": "vbUnchecked",
 				"Visible": true,
@@ -769,6 +769,66 @@
 				"Width": 225,
 				"_className": "CheckBox",
 				"_clsid": "{33AD4EF8-6699-11CF-B70C-00AA0060D393}"
+			},
+			{
+				"Alignment": "tbLeftJustify",
+				"Anchors": {
+					"Bottom": false,
+					"Left": true,
+					"Right": false,
+					"Top": true,
+					"_className": "Anchors",
+					"_clsid": "{8524D4B5-72A9-40A9-A189-29E7905C40CA}"
+				},
+				"Appearance": "vbAppear3d",
+				"BackColor": -2147483633,
+				"Caption": "Save Image Resources To File",
+				"CausesValidation": true,
+				"DataField": null,
+				"DataFormat": null,
+				"DataMember": null,
+				"DataSource": null,
+				"DisabledPicture": "",
+				"Dock": "vbDockNone",
+				"DownPicture": "",
+				"DragIcon": "",
+				"DragMode": "vbManual",
+				"Enabled": true,
+				"FontBold": false,
+				"FontItalic": false,
+				"FontName": "Tahoma",
+				"FontSize": 8,
+				"FontStrikethru": false,
+				"FontUnderline": false,
+				"ForeColor": -2147483630,
+				"Height": 20,
+				"HelpContextID": 0,
+				"Index": -1,
+				"Left": 27,
+				"MaskColor": 12632256,
+				"MouseIcon": "",
+				"MousePointer": "vbDefault",
+				"Name": "ckbSaveResources",
+				"OLEDropMode": "vbOLEDropNone",
+				"Padding": 2,
+				"Picture": "",
+				"PictureAlignment": "vbAlignTop",
+				"PictureDpiScaling": false,
+				"RightToLeft": false,
+				"Style": "vbButtonStandard",
+				"TabIndex": 12,
+				"TabStop": true,
+				"Tag": null,
+				"ToolTipText": null,
+				"Top": 335,
+				"UseMaskColor": false,
+				"Value": "vbUnchecked",
+				"Visible": true,
+				"VisualStyles": true,
+				"WhatsThisHelpID": 0,
+				"Width": 211,
+				"_className": "CheckBox",
+				"_clsid": "{33AD4EF8-6699-11CF-B70C-00AA0060D393}"
 			}
 		],
 		"_className": "Form",

src/source/Converter.twin → src/Sources/Converter.twin

@@ -55,6 +55,7 @@ Class Converter
 		ckb3DAppearance.Value = vbChecked
 		optUseVBAFonts.Value = True
 		ckbHideIconBox.Value = vbChecked
+     	ckbSaveResources.Value = vbUnchecked
 		Set Me.Icon = GetImageFromResources("twinBASIC.ico", "IMAGES")
 	End Sub