[Dr.Sherif Alazizi]

اضف زرين وتايمر واجعل interval of timer = 5000

وضع هذا الكود

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("سبحان الله وبحمده سبحان الله العظيم", MsgBoxStyle.Exclamation, "التكرار")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Button1_Click(Button1, e)
Timer1.Enabled = True
End Sub
End Class