ModifyBorder

Private Declare Function DrawBorder Lib "COMCTL32" _
Alias "DrawStatusTextA" (ByVal hDC As Long, _
lprc As RECT, ByVal pszText As String, _
ByVal uFlags As Long) As Long

Private Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, lpRect As RECT) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Dim MyRect As RECT

Private Sub Form_Paint()
Form1.ScaleMode = 3
With MyRect
.Top = 0
.Left = 0
.Bottom = Form1.ScaleHeight
.Right = Form1.ScaleWidth
End With
DrawBorder Form1.hDC, MyRect, "", 0
End Sub

Private Sub Form_Resize()
Form_Paint
End Sub