FYI
Upcoming in VB7.. and GREAT!!! (From FAQ)

Free Threading (ability to do background processing, finally)

t = New Thread(New Threadstart
(AddressOf(BaseClass.Function1))

Structured Exception Handling

No More “On Error GoTo”!

Sub SafeWrite()
Try
Open "Testfile"
.....
Write #1
Catch
Kill "Testfile"
Finally
Close #1
End Try
End Sub