Public Class frmAvisoBirthday
    Dim cnt As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag;d.breimaier@verag.ag", "AVISO Congrats - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, RichTextBox1.Text)
        '
        Button1.Visible = False
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub frmAvisoBirthday_Load(sender As Object, e As EventArgs) Handles Me.Load
        PictureBox2.BackgroundImage = My.Resources.memories0
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        If cnt = 0 Then : PictureBox2.BackgroundImage = My.Resources.memories1 : cnt += 1
        ElseIf cnt = 1 Then : PictureBox2.BackgroundImage = My.Resources.memories2 : cnt += 1
        ElseIf cnt = 2 Then : PictureBox2.BackgroundImage = My.Resources.memories3 : cnt += 1
        ElseIf cnt = 3 Then : PictureBox2.BackgroundImage = My.Resources.memories4 : cnt += 1
        ElseIf cnt = 4 Then : PictureBox2.BackgroundImage = My.Resources.memories5 : cnt += 1
        ElseIf cnt = 5 Then : PictureBox2.BackgroundImage = My.Resources.memories0 : cnt = 0
        End If

    End Sub
End Class