Dim Msg ' If an error occurs, construct an error message On Error Resume Next ' Defer error handling. Err.Clear Err.Raise 6 ' Generate an "Overflow" error. ' Check for error, then show message. If Err.Number <> 0 Then Msg = "Error # " & Str(Err.Number) & " was generated by " _ & Err.Source & Chr(13) & Err.Description MsgBox Msg, , "Error", Err.Helpfile, Err.HelpContext End If
Hyperlinks:
- Carl And Gary's VB page - the most popular one on the web
- Microsoft's VB page
- Microsoft's knowledge base
- Seth's VB page - with sample VB source code for all Numerical Comp assignments
- VB Online magazine
- Visual Basic Programmer's Journal
- VB links on the internet
- Download.com 's ActiveX components. More ActiveX components than you can shake a stick at.
- Rap with other VB developers for help
- Newsgroups - ask for help, find a job, make fun of other programmers:
Copyright © University of Colorado. All rights reserved.
Revised: Novemeber 23, 1998