27 lines
1.3 KiB
VB.net
27 lines
1.3 KiB
VB.net
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 |