Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Try
            Dim f As Form
            f.Show()
        Catch ex As Exception
            MsgBox(Int32.Parse(ex.StackTrace.Substring(ex.StackTrace.IndexOf( _
              "line") + 5)))
        End Try
    End Sub