www.pudn.com > 20063518740652.zip > ERRORS32.BAS

Attribute VB_Name = "ERRORS" 
 
Sub ShowError(F As Form, Code As Long, Msg As String) 
Dim Buffer As String * 81 
Code = seeErrorText(Code, Buffer, 80) 
F.eResult.Text = Msg & Buffer 
End Sub 
 
Sub ShowMessage(F As Form, Text As String) 
F.eResult.Visible = True 
F.eResult.Text = Text 
End Sub