code: form bumping at screen sides

[Kennethj]

CREATE A MODULE WITH THIS CODE:
Private Type mform
X As Long
Y As Long
XWay As Long
YWay As Long
End Type

Global Form As mform

THEN PASTE THIS INTO YOUR FORM:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End
End Sub

Private Sub Form_Load()
SetProp
Main
End Sub

Sub SetProp()
Me.Show
Me.ScaleMode = vbPixels
Me.Left = Screen.Width / 3
Me.Top = Screen.Height / 3
Form.XWay = 1
Form.YWay = 1

Form.X = Screen.Width / 3
Form.Y = Screen.Height / 3
End Sub

Sub Main()
Do
Form.X = Form.X + Form.XWay
Form.Y = Form.Y + Form.YWay
Me.Left = Form.X
Me.Top = Form.Y

Select Case Form.X
Case Is < 0
Form.X = 0
Form.XWay = -Form.XWay
Case Is > Screen.Width - Me.Width
Form.X = Screen.Width - Me.Width
Form.XWay = -Form.XWay
End Select

Select Case Form.Y
Case Is < 0
Form.Y = 0
Form.YWay = -Form.YWay
Case Is > Screen.Height - Me.Height
Form.Y = Screen.Height - Me.Height
Form.YWay = -Form.YWay
End Select

DoEvents
Loop
End Sub