Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim f As New Form2() f.Show(Me) End Sub