Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, 
                                                    ByVal hwndInsertAfter As Long, 
                                                    ByVal x As Long, ByVal y As Long,
                                                    ByVal cx As Long, ByVal cy As Long, 
                                                    ByVal wFlag As Long) As Long
Const HWND_TOPMOST = - 1 
Const SWP_SHOWWINDOW = &H40

Private Sub Form_Load()
   Dim retValue As Long
   retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, Me.Width, Me.Height, SWP_SHOWWINDOW)
End Sub