Код:
'КОД ФОРМЫ (FROM)

Private Sub Check1_Click()
If Check1.Value = vbChecked Then
SetWindowPos Me.hwnd, HWND_TOPMOST, _
0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos Me.hwnd, HWND_NOTOPMOST, _
0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub

''***********************************
''КОД МОДУЛЯ
'***********************************

Public 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

Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Создайте стандартный EXE-проект. На форме (Form) разместите элемент CheckBox. Также, дополнительно добавьте новый модуль (Module)
http://granssg.narod.ru/Basic/Picture/FORM_WINDOWS.jpg

Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Форма поверх всех окон ;