Private WithEvents detailsForm As Form2

Private Sub detailsForm_Closed(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles detailsForm.Closed
 
        detailsForm = Nothing
 
    End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button8.Click
 
        If detailsForm Is Nothing Then
            detailsForm = New Form2
            Me.Close()
            detailsForm.BindingContext = Me.BindingContext
            detailsForm.Show()
        Else
            detailsForm.Activate()
        End If
 
    End Sub