Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim f As New Form2 f.Show() End Sub
Public Class Form2 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Debug.WriteLine("Load") MsgBox("Load") End Sub Private Sub Form2_Shown(sender As Object, e As EventArgs) Handles Me.Shown Debug.WriteLine("Shown") MsgBox("Shown") End Sub Private Sub Form2_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged Debug.WriteLine("VisibleChanged") MsgBox("VisibleChanged") End Sub End Class