[HELP] Pop-up Message like in CAFE TIMER

Hello Guys :wave:,I need some help regarding Cafe Timer (Standalone) without server ,I download it,doing some modification.

My problem is I want to create a message warning after 5 minutes Its time up,after that its showing message like this " Please save all work your time only is 5 minutes ,"

here the code:

Code:

---



Public Class Form4
    Dim counter, xx As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        counter += 1
        secCounter.Text = counter
        If RemHour = 0 And RemMins = 0 Then
            Form1.Opacity = 1
            hideTaskbar()
            Form1.Timer3.Start()
            Form1.Timer2.Enabled = True
            Form1.Timer2.Interval = 1
            Form1.Timer1.Enabled = True
            Me.Close()
        Else
            If RemHour <> 0 And RemMins = 0 Then
                RemHour -= 1
                RemMins = 60
                txtRem.Text = Format(RemHour, "00") & ":" & Format(RemMins, "00")
            Else
                If counter = 60 Then
                    If RemHour = 0 Then
                        If RemMins = 0 Then
                            Form1.Timer2.Enabled = True
                            Form1.Timer2.Interval = 1
                            Me.Close()
                        Else
                            RemMins -= 1
                            txtRem.Text = Format(RemHour, "00") & ":" & Format(RemMins, "00")
                            UsedMins += 1
                            txtUsed.Text = Format(UsedHour, "00") & ":" & Format(UsedMins, "00")
                            If UsedMins = 60 Then
                                UsedHour += 1
                                UsedMins = 0
                                txtUsed.Text = Format(UsedHour, "00") & ":" & Format(UsedMins, "00")
                            End If
                        End If
                    Else
                        If RemMins = 0 Then
                            RemHour -= 1
                            RemMins = 60
                            txtRem.Text = Format(RemHour, "00") & ":" & Format(RemMins, "00")
                            UsedMins += 1
                            txtUsed.Text = Format(UsedHour, "00") & ":" & Format(UsedMins, "00")
                            If UsedMins = 60 Then
                                UsedHour += 1
                                UsedMins = 0
                                txtUsed.Text = Format(UsedHour, "00") & ":" & Format(UsedMins, "00")
                            End If
                        Else
                            RemMins -= 1
                            txtRem.Text = Format(RemHour, "00") & ":" & Format(RemMins, "00")
                            UsedMins += 1
                            txtUsed.Text = Format(UsedHour, "00") & ":" & Format(UsedMins, "00")
                            If UsedMins = 60 Then
                                UsedHour += 1
                                UsedMins = 0
                                txtUsed.Text = Format(UsedHour, "00") & ":" & Format(UsedMins, "00")
                            End If
                        End If
                    End If
                    counter = 0
                End If
            End If
        End If
    End Sub

---

Sorry for my bad english:D thanks advance