SMF Hacks
|
||
| Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift And vbCtrlMask Then Select Case KeyCode Case vbKeyRight: If Me.Left >= Screen.Width - Me.Width Then Exit Sub Me.Left = Me.Left + 200 Case vbKeyLeft: If Me.Left <= 0 Then Exit Sub Me.Left = Me.Left - 200 Case vbKeyDown: If Me.Top >= Screen.Height - Me.Height Then Exit Sub Me.Top = Me.Top + 200 Case vbKeyUp: If Me.Top <= 0 Then Me.Top = 0: Exit Sub Me.Top = Me.Top - 200 End Select End If End Sub |
||