'открытие из основной
    Dim Form2 As New frm2
    Form2.ShowDialog(Me)

'Закрытие frm2 из-под себя:
  Me.Close() 'ну или Me.Dispose() -как правило добавляю в Me.FormClosed, иногда вызываю сразу

If e.CloseReason = CloseReason.UserClosing Then e.Cancel = True

Public Class Form1

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    'вариант #1
    'Dim Form2 As New frm2
    'Form2.ShowDialog(Me)
    'Form2.Dispose()

    'вариант #2
    Using Form2 As New frm2
      Form2.ShowDialog(Me)
    End Using
  End Sub
End Class

Public Class frm2

  Dim DoNotCloseMe As Boolean = True 'не закрывать крестиком или по Alt+F4 если так надо

  Private Sub ButtonCloseMe_Click(sender As Object, e As EventArgs) Handles ButtonCloseMe.Click
    DoNotCloseMe = False
    Me.Close()
  End Sub

  Private Sub frm2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    'запрет закрытия через крестик, Alt+F4 и т.п. (но при этом Me.Close() также не работает)
    If DoNotCloseMe AndAlso e.CloseReason = CloseReason.UserClosing Then e.Cancel = True
  End Sub
End Class