Private Sub DisplayPendingExports(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim item As New MenuItem
item = sender
Dim ExportsDialog As New PendingExports
ExportsDialog.MA = item.Text
ExportsDialog.Show()
End Sub