Public Class ItemForm Dim ErrorHandling As String Private Sub ItemForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load ErrorHandling = "1" End Sub End Class