RuntimeException.Message
From Real Software Documentation
Property (As String)
Used to contain descriptive text to display when the runtime exception is encountered.
Examples
The following example displays a message box if, for example, you try to create more than one KeyChainItem for the same application.
Dim NewItem as KeyChainItem
If System.KeyChainCount > 0 then
NewItem = New KeyChainItem
'Indicate the name of the application
NewItem.ServiceName = "MyApplication"
'Create a new keychain item for the application and assign the password
System.KeyChain.AddPassword NewItem, "SecretPassword"
Else
Beep
MsgBox "You don't have a key chain."
End if
Exception err as KeyChainException
MsgBox err.Message+". Error Code: "+Str(err.errorNumber)
If System.KeyChainCount > 0 then
NewItem = New KeyChainItem
'Indicate the name of the application
NewItem.ServiceName = "MyApplication"
'Create a new keychain item for the application and assign the password
System.KeyChain.AddPassword NewItem, "SecretPassword"
Else
Beep
MsgBox "You don't have a key chain."
End if
Exception err as KeyChainException
MsgBox err.Message+". Error Code: "+Str(err.errorNumber)
