Here is more code from SuperScan.

Private Sub usub_603d70(Arg4 as unknown,Arg8 as unknown)
Dim Local1 as VT_PTR.ErrObject
Dim BLocal1 as Integer
On Error Resume Unknown
If ((OFFSET-CONTAINER 1 #ARG8) & 4294967295) Then
        usub_46CF38
        BLocal1 = (OFFSET-CONTAINER 1 #ARG4)
Else
        usub_46CF38
        BLocal1 = 0
End If
Dim FLocal3 as _ErrObject
Flocal3 = Err
Set Local1 = FLocal3
BLocal1 = NIL
MsgBox(FLocal3.Description & vbCrLf & "in SuperScan.APIdecs.SetTopMostWindow " & "at line " & CStr(Erl),VBOKONLY)
Resume Next
Exit Proc