Private WithEvents detailsForm As FormDetail
 
    Private Sub DetailsButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DetailsButton.Click
        If detailsForm Is Nothing Then
            detailsForm = New FormDetail
            detailsForm.BindingContext = Me.BindingContext
            detailsForm.Show()
        Else
            detailsForm.Activate()
        End If
    End Sub
 
    Private Sub detailsForm_Closed(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles detailsForm.Closed
        detailsForm = Nothing
    End Sub