This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(188.79999999999998, 49%, 28%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EWK%3C/text%3E%3C/svg%3E)
This is an exe developed by me, in use by 5000+ users in 41 countries. Until recently, running under win 10 and win 11. No meaningful changes for the past year. Development machine is win 10 where exe still runs properly. Now fails to launch on two systems (1 WIN 10 Vision, 1 WIN 11 Surace). No messages of any kind. Just 1 beep. VB6 IDE still compiles and resulting exe runs without problems on home machine.
Implanted debug shows problem occurs before 1st executable vb statement. I have examined permissions, malware, registry permissions, and DISM. found nothing. I have Procmon, but no experience using it.
I have complete control of all 3 systems involved.
Did you run the application install on these problem machines or just copy the .exe file and try to run it? You could be missing a .dll or .ocx.
Trace the launch of the program with procmon. If the program can't find a .dll you will see a file read for the file name in every folder in your system path.
Also look got access denied errors.
If you see any references to C:\ProgramData\Microsoft\Windows\WER then the program is crashing. Check reliability history in control panel for those events.
I created the install. All libraries were in place before exe stopped launching. missing libs would cause messages.
procmon shows clcatq.dll as the last event before thread closures. next event would be version.dll if launch is successful.
there are no messsages.
I note several copies of clbcatq.dll, with radically different sizes on all 3 machines.
Dusting off the cobwebs.... VB6 is 32 bit only as I recall, so that dll should be getting loaded from C:\Windows\SysWOW64.
A search indicates that it is COM catalog related. Does your app do any COM calls?
I take advantage of late binding, but no com calls. and again, nothing but debug code recently.
Launch the program using procdump and see if it catches an exception.
https://learn.microsoft.com/en-us/sysinternals/downloads/procdump
C:\>procdump -e -x c:\temp c:\utils\blowup.exe
ProcDump v11.0 - Sysinternals process dump utility
Copyright (C) 2009-2022 Mark Russinovich and Andrew Richards
Sysinternals - www.sysinternals.com
Process: Blowup.exe (9624)
CPU threshold: n/a
Performance counter: n/a
Commit threshold: n/a
Threshold seconds: n/a
Hung window check: Disabled
Log debug strings: Disabled
Exception monitor: Unhandled
Exception filter: [Includes]
*
[Excludes]
Terminate monitor: Disabled
Cloning type: Disabled
Concurrent limit: n/a
Avoid outage: n/a
Number of dumps: 1
Dump folder: c:\temp\
Dump filename/mask: PROCESSNAME_YYMMDD_HHMMSS
Queue to WER: Disabled
Kill after dump: Disabled
Press Ctrl-C to end monitoring without terminating the process.
[13:26:16] Exception: 04242420
[13:26:19] Exception: E06D7363.PEAVEEException@@
[13:26:19] Exception: E0434352.CLR
[13:26:19] Unhandled: E0434352.CLR
[13:26:19] Dump 1 initiated: c:\temp\Blowup.exe_231216_132619.dmp
[13:26:19] Dump 1 complete: 16 MB written in 0.1 seconds
[13:26:19] Dump count reached.
C:\>
[13:26:16] Exception: 04242420 [13:26:19] Exception: E06D7363.PEAVEEException@@ [13:26:19] Exception: E0434352.CLR [13:26:19] Unhandled: E0434352.CLR [13:26:19] Dump 1 initiated: c:\temp\Blowup.exe_231216_132619.dmp [13:26:19] Dump 1 complete: 16 MB written in 0.1 seconds [13:26:19] Dump count reached.
c:\temp empty
Is Temp a folder? What did you run? What output did procdump produce?
Taking a step back... what is different about these 2 pc's, "1 WIN 10 Vision, 1 WIN 11 Surace"? What specific version of Windows are they running? Are all patches installed? They're not running in S mode are they? If there was some fundamental flaw/bug in Windows, then I would expect a lot more of your 5000+ user base to be reporting problems.
As @Bruce (SqlWork.com) noted in the links, the VB6 IDE went out of support in 2008. That's like 2 centuries in computer years. I would think that it's time to upgrade to VB .Net and a current version of Visual Studio.
procdump results:
Vision is 22H2. surface is 22H2 win 11 business. Both machines have run the problem exe in the recent pass.
VB.Net is an option, but at 81 years, am I up to learning a whole new development environment? And does it make economic sense given my market size?
Blowup is a program that I wrote that just crashes so that I can test out creating dumps. I don't see how you could possibly run procdump and have it generate a crash with the exact same exception and timestamp (13:26:19) as the one that I generated.
Use your program name instead.
Turn off any antivirus that you may have running.
I made a major mistake: Here are procdump results:
C:\Procdump>procdump -e -x c:\temp c:\segcalc
ProcDump v11.0 - Sysinternals process dump utility
Copyright (C) 2009-2022 Mark Russinovich and Andrew Richards
Sysinternals - www.sysinternals.com
Process: SegCalc.exe (12036)
CPU threshold: n/a
Performance counter: n/a
Commit threshold: n/a
Threshold seconds: n/a
Hung window check: Disabled
Log debug strings: Disabled
Exception monitor: Unhandled
Exception filter: [Includes]
*
[Excludes]
Terminate monitor: Disabled
Cloning type: Disabled
Concurrent limit: n/a
Avoid outage: n/a
Number of dumps: 1
Dump folder: c:\temp\
Dump filename/mask: PROCESSNAME_YYMMDD_HHMMSS
Queue to WER: Disabled
Kill after dump: Disabled
Press Ctrl-C to end monitoring without terminating the process.
[15:05:31] Process Exit: PID 12036, Exit Code 0x00000000
[15:05:31] The process has exited.
[15:05:31] Dump count not reached.
MAJOR OOPS!
C:\Procdump>procdump -e -x c:\temp c:\segcalc
ProcDump v11.0 - Sysinternals process dump utility
Copyright (C) 2009-2022 Mark Russinovich and Andrew Richards
Sysinternals - www.sysinternals.com
Process: SegCalc.exe (12036)
CPU threshold: n/a
Performance counter: n/a
Commit threshold: n/a
Threshold seconds: n/a
Hung window check: Disabled
Log debug strings: Disabled
Exception monitor: Unhandled
Exception filter: [Includes]
*
[Excludes]
Terminate monitor: Disabled
Cloning type: Disabled
Concurrent limit: n/a
Avoid outage: n/a
Number of dumps: 1
Dump folder: c:\temp\
Dump filename/mask: PROCESSNAME_YYMMDD_HHMMSS
Queue to WER: Disabled
Kill after dump: Disabled
Press Ctrl-C to end monitoring without terminating the process.
[15:05:31] Process Exit: PID 12036, Exit Code 0x00000000
[15:05:31] The process has exited.
[15:05:31] Dump count not reached.
You need to change your download link from http to https.
Now that's something I can do!
thanks
Pretty cool. I can see why you wouldn't want to convert it to .Net. That might take a lot of time to get everything to work.
I installed it on a Win10 Home VM and it ran just fine.
Have you checked your application and system eventlogs? What about antivirus? Are you running any 3rd party software or just the base Defender?
Run gpedit.msc and look for something policy based that might block software.
thanks for trying it.
ran event viewer. no events generated by attempting execute of segcalc.exe.
ran gpedit.msc. found 2 minor differences from working machine and modified to agree. no effect on segcalc.exe. otherwise, lots of Not configured.
I've run full virus scan.
Discovered ESET not currently installed. so, defender only.
I have no idea what those 2 machines are doing.
When you ran procdump, did you launch it from a "run as administrator" command prompt? For that matter, did you test launching your program with run as admin?
Do you have any other really simple VB6 programs that you could try?
Everything is done as admin; I can't trust anything else. I have no other misbehavers.
Last input was fromm surface. I'll try Vision, I don't expect miracles.
Vision shows same results:
C:\Procdump>procdump -e -x c:\temp c:\segcalc.exe
ProcDump v11.0 - Sysinternals process dump utility
Copyright (C) 2009-2022 Mark Russinovich and Andrew Richards
Sysinternals - www.sysinternals.com
Process: SegCalc.exe (13516)
CPU threshold: n/a
Performance counter: n/a
Commit threshold: n/a
Threshold seconds: n/a
Hung window check: Disabled
Log debug strings: Disabled
Exception monitor: Unhandled
Exception filter: [Includes]
*
[Excludes]
Terminate monitor: Disabled
Cloning type: Disabled
Concurrent limit: n/a
Avoid outage: n/a
Number of dumps: 1
Dump folder: c:\temp\
Dump filename/mask: PROCESSNAME_YYMMDD_HHMMSS
Queue to WER: Disabled
Kill after dump: Disabled
Press Ctrl-C to end monitoring without terminating the process.
[14:16:43] Process Exit: PID 13516, Exit Code 0x00000000
[14:16:44] The process has exited.
[14:16:44] Dump count not reached.
last time i tried to compile on Vision, it failed. i've reinstalled IDE, will try again.
The exit code 0 is what doesn't make sense. An error of some kind would be expected.
in a related activity. trying to compile segcalc on Vision 1 to see if exe is usable as substitute for problem exe. re-installed vb6, recompiled segcalc, but upon execute in IDE, get "object library not registered" How do I learn which lib at fault?
tried simple app, adding to modules as needed to see if probs can be recreated. everything good until added vbprndlg which generated object lib not registered
I think that process monitor is going to be your best bet. I copied SegCalc.exe from the Win10 VM that I installed it on to my Win11 laptop. I ran it fully expecting to get some kind of error message but like you saw with procdump, it just exited with code 0.
So I traced it and right before the thread exits, I see it trying to read HKCR\TypeLib{F4AF555B-629F-43A6-ACB1-625430415788}.
Checking on the VM I see that it points to your VSPlibrary.dll.
Trace the program and look to see what it references right before you see the threads exit. Compare that to a working machine.
It's 373 lines of type and enum statements right here in river city:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "VSPTypeLib"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'© Copyright 2023 Verified Software Products Company, William D. Kandler
'Enums and types making up VSPLib.dll
Option Explicit
Public Enum CuttingMode
Economy
GrainMatch
End Enum
Public Enum Direction
Horizontal
Vertical
End Enum
Public Enum DragType
LaminaDrag = 0
BlockDrag = 1
End Enum
Public Enum FillType
cSideFill = 1
cTopFill = 2
End Enum
Public Enum GrowType 'spiral
GrowUp
GrowDown
End Enum
Public Enum FormatType
LengthItem = 1
AngleItem = 2
CostItem = 3
End Enum
Public Enum LaminaCmd 'the possible commands given to LaminaCreater
cmdCreateLamina
cmdLoadLamina
cmdEditLamina
cmdRemoveLamina
End Enum
Public Enum LamPaint
CreateType 'paint only lamina layers
ReportType 'paint as CreateType plus band/layer dimensions and name
Buildtype 'paint as CreateType plus name and lamina dimensions
End Enum
Public Enum Measures
Angle
Cost
Percent
Integ
Length
End Enum
Public Enum PCF_Row 'indexes for project cost factor rows
PCF_RowFinishCoats = 1
PCF_RowApplyFinish = 2
PCF_FinishCostRate = 3
End Enum
Public Enum PCF_Col
PCF_LacquerGlaze = 1 'indexes for project costing types
PCF_LacquerGloss = 2
PCF_PolyGlaze = 3
PCF_PolyGloss = 4
PCF_OilGloss = 5
PCF_OilMatte = 6
PCF_ColUsageNote = 7
End Enum
Public Enum RLF_Row
RLF_RowSelectWood = 1 'indexes for ring costing elements 1 thru 16
RLF_RowCuttoLength = 2
RLF_RowCuttoWidth = 3
RLF_RowSetMiterStop = 4
RLF_RowCutaSegment = 5
RLF_RowGlueUpRing = 6
RLF_RowFlattenRing = 7
RLF_RowGluetoProject = 8
RLF_RowTurn = 9
RLF_RowSand = 10
RLF_RowPreparePlug = 11
RLF_rowfeaturering = 12
RLF_RowVerticalSeparator = 13
End Enum
Public Enum RLF_Col
RLF_ColFrameMiter = 1 'indexes for ring costing types
RLF_ColRingMaster = 2
RLF_ColCompoundMiter = 3
RLF_ColVeneer = 4
RLF_ColOpenSegment = 5
RLF_ColSolidDisk = 6
RLF_ColUsageNote = 7
End Enum
Public Enum ScaleTypes
VSPtarget 'origin at center
MSdefault 'Windows std origin at UL corner
End Enum
Public Enum ScaleModeType
abc = 1
def = 2
End Enum
Public Enum SideType
LeftSide = 1
RightSide = 2
End Enum
Public Enum SpiralType
SpiralLeft
SpiralBoth
SpiralRight
NoSpiral
End Enum
Public Enum Substitute
Substituting = 1
Substituted = 2
Cancelled = 3
End Enum
Public Enum UnitTypes 'PictureBox ScaleModes
User = 0
Twips = 1
Points = 2
Pixels = 3
Characters = 4
Inches = 5
Millimeters = 6
Centimeters = 7
End Enum
'=================================================================Points===========================
Public Type ObjPt 'a point in x/y space
X As Single
y As Single
End Type
Public Type ObjLine 'a line in x/y space
p1 As Single 'Start of Line
p2 As Single 'End of line
End Type
Public Type POINTAPI
X As Long
y As Long
End Type
Public Type WinPointType 'a Windows point, either origin or size
H As Single 'Height
W As Single 'Width
End Type
Public Type WindowType 'a Window's position as origin and size
Org As WinPointType 'Origin
Siz As WinPointType 'Size
End Type
Public Type FrameType 'corner coordinates for a segment
UL As ObjPt 'upper-left
LR As ObjPt 'lower-right
View As FillType '=cSideFill or cTopFill
End Type
'=================================================================End Points=======================
Public Type BandType
Width As Single
Color As String
End Type
Public Type BITMAP 'header in a .BMP file
bmType As Integer
bmWidth As Integer
bmHeight As Integer
bmWidthBytes As Integer
bmPlanes As Byte
bmBitsPixel As Byte
bmBits As Long
End Type
Type ColorType
ID As String 'unique identifier
Type As String 'type of color; such as "~!@#$%^&(-+"
Name As String 'ID stripped of Type
Store As String 'path to file
File As String 'image file name
Design As String 'how image is built
Area As Single 'Height * Width of segment for which color is defined
Value As Long 'RGB color constant
Cost As Single 'Cost of Color for segment's Height, Width, and Thickness
CostBasis As String 'boardFeet or Segment
SourceFile As String
End Type
Public Type CompInfo 'coordinates and sizes for dialog components
Top As Single
Left As Single
FontSize As Single
Height As Single
Name As String
Width As Single
X1 As Single
y1 As Single
x2 As Single
y2 As Single
End Type
Public Type CornerSet 'coords of 4 corners of a segment viewed thru its outer face
UL As ObjPt
UR As ObjPt
LL As ObjPt
LR As ObjPt
SI1 As ObjPt
SI2 As ObjPt
SO1 As ObjPt
SO2 As ObjPt
GapFlg As Boolean
End Type
Public Type DesignParameters 'parameters describing the general shape of a project
MinH As Single 'minimum Y value, top of project
MaxH As Single 'maximum Y value, bottom of project
Height As Single 'height of project = MaxH - MinH
MinW As Single 'minimum X value, left edge of profile
MaxW As Single 'maximum X value, right edge of profile
Width As Single 'width of project = MaxH - MinH
WidthLoc As Single 'vertical location of Width in the project
Foot As Single 'diameter of project at the bottom
Width_D_Height As Single 'Width / Height
Height_D_Width As Single 'Height / Width
Foot_D_Width As Single 'Foot / Width
WidthLoc_D_Height As Single 'WidthLoc / Height
Size As Single '=max(Height,Width)
End Type
Public Type FillPoint
Angle As Single
Color As String
UL As ObjPt
UR As ObjPt
LL As ObjPt
LR As ObjPt
CTR As ObjPt
View As FillType
End Type
Public Type JawSet
Name As String 'Name of the jaw set
MinDiameter As Single 'Minimum compression diameter
MaxDiameter As Single 'Maximum compression diameterk
End Type
Public Type LamLayer 'used in blockdesigner to describe a lamina layer
Color As String 'color/kind of wood used
Width As Single 'width needed to satisfy ring wall thickness where lamina will be used
Thick As Single 'thickness of the lamina layer
Length As Single 'total Length needed including saw kerfs
Selected As Boolean
End Type
Public Type LUentry
ModName As String 'name of module
OnOff As Boolean 'debug generation is on/off = true/false
End Type
Public Type RGBTriplet
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
End Type
Public Type Remnant 'The piece of material left after cutting a RMRing
ID As Integer 'remnant number
Color As String 'material/type of wood
Height As Single 'thickness of material
MaxDiameter As Single 'larger diameter of remnant
MinDiameter As Single 'smaller diameter of remnant
End Type
Public Type RMRing 'A ring in a project
lyr As Integer 'layer number within the project
Plank As Integer 'Plank/Remnant RMRing will be cut from
Color As String 'material/type of wood
Height As Single 'height of RMRing
DiaMax As Single 'diameter of RMRing at largest end
DiaMin As Single 'diameter of RMRing at smaller end
Incline As Single 'angle of ring outer wall from vertical
Wall As Single 'thickness of RMring wall
End Type
Public Type RptCol 'definition of a report column
Index As Integer 'identifies item
Label As String 'header label
ColWidth As Long 'report column width
Formatwidth As Integer 'formatted width of item
CharPosn As Integer 'character position for start of column
Included As Boolean 'TRUE if column is included in report
Align As Byte 'alignment of item within column (left, center, right)
ColorName As String 'color of printed column text
End Type
Public Type ScalParms 'PictureBox scale parameters
sclmod As Integer 'ScaleMode
scllft As Single 'ScaleLeft
sclwid As Single 'ScaleWidth
scltop As Single 'ScaleTop
sclhgt As Single 'ScaleHeight
End Type
Public Type SceneCell 'a segment within a Segmented Scene
Selected As Boolean 'TRUE if cell is currently selected/highlighted
UL As ObjPt 'UL corner
LR As ObjPt 'LR corner
Color As ColorType 'fill color
End Type
Public Type SegmentId
layer As Integer
ID As Integer
End Type
Public Type SortRec 'used in sorting cutlist
lyr As Integer 'Layer
Width As Single 'BoardWidth
End Type
Public Type SubBand
Band As Integer 'band that info pertains to
Item As Integer 'index into BandInfo
X1 As Single 'x value for upper-left corner
x2 As Single 'x value for upper-right corner
x3 As Single 'x value for lower-left corner
x4 As Single 'x value for lower-right corner
Color As String 'color for SubBand
End Type
Public Type UnDoList
sketch() As ObjPt
End Type
Public Type UndoProj
FileName As String
ProjectFileName As String
End Type
Public Type WallEntry
OT As ObjPt 'Outer-Top corner
OB As ObjPt 'Outer-Bottom corner
Oslp As Single 'Slope of outer wall
IT As ObjPt 'Inner-Top corner
IB As ObjPt 'Inner-Bottom corner
Islp As Single 'Slope of inner wall
End Type
No no no. Delete that code from the comment.
I didn't run your install on my laptop. I fully expected it to not find something. I was trying to point out that the program ran and exited code zero just like what you experienced.
But I don't know what is wrong with your PC or what dll or OLE object your pc can't find.
Run procmon on the pc when your program doesn't run. Trace your program and see what it is looking for.
Look at the red arrows in the image, that is how I traced the missing dll on my pc. You need to figure out what your pc can't find.
I did find that if run procdump with the -l switch it will capture the OLE error but it will not tell me what it is looking for.
procdump -e 1 -l -x c:\temp\ segcalc.exe
I see a 8002801D error.
Press Ctrl-C to end monitoring without terminating the process.
[18:12:07] Debug String:
mincore\com\oleaut32\typelib\tlibapi.cpp(2279)\OLEAUT32.dll!75517515: (caller: 7553D0C0) ReturnHr(1) tid(4a84) 8002801D Library not registered.
[18:12:07] Dump 1 initiated: c:\temp\SegCalc.exe_231219_181207.dmp
[18:12:07] Dump 1 complete: 1 MB written in 0.1 seconds
[18:12:07] Dump count reached.
let's see if i follow you.
you went to search the registry for HKCR\TypeLib{F4AF555B-629F-43A6-ACB1-625430415788} and that led you to vsplibrary.dll. on my surface, doing the same thing, did not get same result.
and then, on vision 1, I asked to execute segcalc.exe with procmon watching. IT RAN!!
MAYBE I UNDERSTAND.
typelib, early binding, late binding, 2 ways to tell vb6 and windows about it. if they don't agree >> trouble.
It's been years since I worked with VB6 and COM. My recollection is that I would always get an error if some file was missing or not registered. As a server admin, most of what I wrote were little utility programs or ASP web sites.
In the troubleshooting I used to do, I normally knew that I had an issue of "I can't create an adodb.recordset". I knew what to look for.
For your problem, we don't know what your program is looking for. If we did, then we could verify that the file existed and run regsvr32 to register it.
I did not install your app on my laptop. So when I ran Segcalc I expected some kind of error. Because NONE of your dll's were on that pc. I don't know if there is a compile option where you could get VB6 to act differently or not.
So my technique to troubleshoot was to trace segcal with procmon and look to see what file/registry it referenced right before it terminated. That's where I found that Typelib.
You need to do the same thing. On a pc where your program doesn't run and just exits, trace it with procmon and look for a "not found" or "access denied" error just before the thread/process exits.
Launch it with procdump and the -l switch and see if you get any debug message.
When I tried running with procmon listening, the problem magically disappeared. GONE! And I had made no changes. But I was running in the IDE, so I would be ready to respond if something showed up.
Maybe, next time this occurs, I'll be better prepared to research.
Well you don't want to run it in the IDE because then you're not recreating the environment where you have the problem. And if one of your users has the problem, they won't have the IDE and your source code.
Assuming that you want to try to resolve the problem, uninstall the IDE, uninstall the program, reboot, reinstall the program, test again.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(211.20000000000002, 61%, 30%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EBS%3C/text%3E%3C/svg%3E)
trouble shooting compatibility had no effect.