Prova in questo modo
codice:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim frm As New Form2()
        frm.ShowDialog()
    End Sub