What about the ability to move the forms around.
VB Code:
'In a Module
Option Explicit
Public Declare Function ReleaseCapture Lib "user32.dll" () As Long
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const HTCAPTION As Integer = 2
Public Const WM_NCLBUTTONDOWN As Integer = &HA1
Public Function MoveTheForm(ByVal TheHwnd As Long)
ReleaseCapture
SendMessage TheHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Function
'Form code
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveTheForm Me.hwnd
End Sub
casey.