Sub shade (a As Form)
Static b
a.Cls
If a.WindowState = 2 Then Exit Sub
b = a.DrawWidth
a.BackColor = QBColor(7)
a.DrawWidth = 3
a.Line (a.ScaleWidth, a.ScaleHeight)-(0, a.ScaleHeight), QBColor(8)
a.Line (a.ScaleWidth, a.ScaleHeight)-(a.ScaleWidth, 0), QBColor(8)
a.Line (0, 0)-(a.ScaleWidth, 0), QBColor(15)
a.Line (0, 0)-(0, a.ScaleHeight), QBColor(15)
a.DrawWidth = b
End Sub