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 wFlags As Long _ ) As Long Const HWND_TOPMOST = -1 Const SWP_SHOWWINDOW = &H40 Private Sub Form_load() App.TaskVisible = False Dim retValue As Long retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW) WindowState = vbMaximized End Sub