Aviso Birthday4

Aviso/frmAvisoBirthday.vb

@@ -0,0 +1,27 @@
+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", "AVISO Congrats - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, RichTextBox1.Text)
+        ';d.breimair@verag.ag
+        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