وبلاگ رسمی مهدی غلامی میاندهی

Private Sub Form_Activate()

Line1.X1 = 0

Line1.X2 = Form1.Width

Line2.Y1 = 0

Line2.Y2 = Form1.Height

Form1.WindowState = 2

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 27 Then End

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Line1.Y1 = Y

Line1.Y2 = Y

Line2.X1 = X

Line2.X2 = X

End Sub

منظور از عدد 27 مربوط به KeyCode كلید Esc است یعنی برنامه با كلید Esc بسته می شود.