[RaggiTech]

اليك هذا التعديل لتكتمل الفكرة

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Dim Layer As New Form1
        If picnum = 0 Then
            Layer.SetImage(Me, My.Resources.Emoji1_200)
            picnum += 1
        ElseIf picnum = 1 Then
            Layer.SetImage(Me, My.Resources.Emoji10_200)
            picnum += 1
        ElseIf picnum = 2 Then
            Layer.SetImage(Me, My.Resources.Emoji11_200)
            picnum += 1
        ElseIf picnum = 3 Then
            Layer.SetImage(Me, My.Resources.Emoji18_200)
            picnum = 4
        ElseIf picnum = 4 Then
            picnum = 0
            Timer1.Enabled = False
            Form2.Show()
            Hide()
        End If
    End Sub