Option Explicit
 
Dim WithEvents tim As Timer
Dim countdown As Integer
Const maxcountdown As Integer = 7
Dim lblcountdown As VB.Label
Dim actioncombo As VB.ComboBox
 
Private Sub Form_Load()
 
Dim i As Integer
 
Set lblcountdown = Me.Controls.Add("VB.Label", "lblcountdown", Me)
Set tim = Me.Controls.Add("VB.Timer", "tim", Me)
 
With lblcountdown
.Left = 10: .Width = 1000: .Top = 10: .Visible = True
End With
 
Set actioncombo = Me.Controls.Add("VB.Combobox", "actioncombo", Me)
With actioncombo
.Left = 1200: .Width = 1500: .Top = 10: .Visible = True
For i = 0 To maxcountdown
   .AddItem ("Number " + CStr(i))
Next i
.ListIndex = 5
End With
 
tim.Enabled = True: tim.Interval = 1000
 
End Sub
 
Private Sub tim_Timer()
 
If countdown > 0 Then
   countdown = countdown - 1
Else
   countdown = maxcountdown
End If
lblcountdown.Caption = CStr(countdown)
lblcountdown.Refresh
If countdown = actioncombo.ListIndex Then
   MsgBox cstr(actioncombo.List(actioncombo.ListIndex))
End If
 
End Sub