If you're trying to do it for the same reasons I have, try wrapping your windows in another class and having them all raise desired events, then handle them in one place. eg:
Public Class DisplayWindow
Private WithEvents _RenderWindow As RenderWindow
Public Event InputReceived(ByVal Sender As Object,ByVal e As KeyEventArgs)
#Region "Events"
Sub App_KeyPressed(ByVal sender As Object, ByVal e As KeyEventArgs) Handles _RenderWindow.KeyPressed
RaiseEvent InputReceived(Me,e)
End Sub
'Put other events here
#End Region
End Class
Then when you want to create these windows and handle their events in one place you can do something like this:
Private _DisplayWindows As List(Of DisplayWindow)
Private Sub CreateNewWindow()
_DisplayWindows .Add(New DisplayWindow())
AddHandler _DisplayWindows.Last.InputReceived, AddressOf ProcessInput
End Sub
Private Sub ProcessInput(ByVal sender As Object, ByVal e As KeyEventArgs)
'Handle your common logic here
End Sub