Public Class frmLeer
    Private Sub frmLeer_Load(sender As Object, e As EventArgs) Handles Me.Load
        '  Me.Location = New Point(MousePosition.X - Me.Size.Width / 2, MousePosition.Y - Me.Size.Height / 2)
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Escape Then Me.Close()
    End Sub

End Class