10 lines
422 B
VB.net
10 lines
422 B
VB.net
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 |