Yön Tuşları ile Form boylarını büyütme, küçültme

sWaGg€r

27.06.2008 20:24:50

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
On Local Error Resume Next
If Shift And vbAltMask Then
Select Case KeyCode
Case vbKeyRight: Me.Width = Me.Width + 200
Case vbKeyDown: Me.Height = Me.Height + 200
Case vbKeyLeft:
If Me.Left <= 0 Then Me.Left = 0: Exit Sub
Me.Left = Me.Left - 200
Case vbKeyUp:
If Me.Top <= 0 Then Me.Top = 0: Exit Sub
Me.Top = Me.Top - 200
End Select
End If
End Sub