Как сделать всплывающее окно над всеми другими окнами - VB

Формулировка задачи:

написал простенькую программу - таймер:

Private Sub start_Click()
Dim j As Integer, h As Byte, m As Byte, s As Byte
 Timer1.Interval = 1000 'интервал
 Timer1.Enabled = True 'включение таймера
End Sub
Private Sub Timer1_Timer()
s = Text3 'секунды
m = Text2 'минуты
h = Text1 'часы
If s > 0 Then 'изменение секунд
s = s - 1
End If
If m = 0 And h <> 0 Then 'изменение часов
m = 59
s = 59
c = c - 1
End If
If s = 0 And m <> 0 Then 'изменение минут
s = 59
m = m - 1
End If
Text1 = h 'вывод оставшегося времени
Text2 = m
Text3 = s
If s = 0 Then 'если времени не осталось завершить
MsgBox ("ТАЙМЕР!!!!")
Timer1.Enabled = False
End If
End Sub

как мне сделать так, чтобы MsgBox всплывало поверх остальных окон. если MsgBox для таких целей не подходит то подскажите, что использовать. заранее спасибо) P.S. я использовал оптимальный вариант подобной программы или можно было написать как то проще?)

Решение задачи: «Как сделать всплывающее окно над всеми другими окнами»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim j As Integer, h As Byte, m As Byte, s As Byte
Private Sub start_Click()
 
 Timer1.Interval = 1000 'интервал
 Timer1.Enabled = True 'включение таймера
End Sub
Private Sub Timer1_Timer()
s = Text3 'секунды
m = Text2 'минуты
h = Text1 'часы
If s > 0 Then 'изменение секунд
s = s - 1
End If
If m = 0 And h <> 0 Then 'изменение часов
m = 59
s = 59
h = h - 1
End If
If s = 0 And m <> 0 Then 'изменение минут
s = 59
m = m - 1
End If
Text1 = h 'вывод оставшегося времени
Text2 = m
Text3 = s
If s = 0 Then 'если времени не осталось завершить
MsgBox ("ТАЙМЕР!!!!")
Timer1.Enabled = False
End If
End Sub
                        