Code:

Option Explicit

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
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
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Const HWND_TOP = 0
Private Const SWP_SHOWWINDOW = &H40

Private Const WM_ACTIVATE = &H6
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const HWND_TOPMOST = -1
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2

Private Function CoverWholeScreen(frm As Object) As Boolean
Dim lngXPos As Long
Dim lngYPos As Long
Dim lngRet As Long
On Error GoTo ErrorHandler
frm.WindowState = vbNormal
lngXPos = GetSystemMetrics(SM_CXSCREEN)
lngYPos = GetSystemMetrics(SM_CYSCREEN)
lngRet = SetWindowPos(frm.hwnd, HWND_TOP, 0, 0, lngXPos, lngYPos, SWP_SHOWWINDOW)
CoverWholeScreen = lngRet <> 0
ErrorHandler:
End Function


Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
end sub

Private Sub Form_Click()
end  'ili mozes Unload me
End Sub