smithles
Programmer
- Jul 15, 2002
- 18
in "main" (VB 6, prog prev ran in VB4)
Load frmsearch 'this was the original les 11/10/02
NOTE execution continues here if the error in frmsearch is ignored
. . .
VERSION 5.00
Begin VB.Form frmsearch
. . . various buttons etc
Private Sub Form_Activate()
Dim tmpr%
On Error GoTo actvateSearch_err
Me.WindowState = 2
' next statement crashes the prog 10/10/02 2220
Me.SetFocus
Exit Sub
actvateSearch_err:
panic Err, "ActivateSearch err"
Exit Sub
End Sub
Load frmsearch 'this was the original les 11/10/02
NOTE execution continues here if the error in frmsearch is ignored
. . .
VERSION 5.00
Begin VB.Form frmsearch
. . . various buttons etc
Private Sub Form_Activate()
Dim tmpr%
On Error GoTo actvateSearch_err
Me.WindowState = 2
' next statement crashes the prog 10/10/02 2220
Me.SetFocus
Exit Sub
actvateSearch_err:
panic Err, "ActivateSearch err"
Exit Sub
End Sub