[RaggiTech]

للتوضيح اكثر اليك هذا الكود

كود :

Dim x As Integer = 1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If x = 1 Then
            MsgBox("1")
        ElseIf x = 2 Then
            MsgBox("2")
        ElseIf x = 3 Then
            MsgBox("3")
        ElseIf x > 3 Then
            MsgBox("اكثر من 3 ضغطات")
        End If
        x += 1
    End Sub