Public Class Disturbance_Geometric
    Private Delegate Sub CloseMe()
    Sub CloseWindow()
        If Me.InvokeRequired Then
            Me.Invoke(New CloseMe(AddressOf CloseWindow))
        Else
            Me.Close()
        End If
    End Sub
End Class