Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Form2.Show() Form2.Dispose() End Sub End Class
Public Class Form2 Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim i, j As Integer MsgBox("begin") j = 0 i = 100 / j MsgBox("ready") End Sub End Class
Show()
_Click
_Load
Dispose()
ShowDialog()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)