تحويل العبارة الشرطية إلى كود vb.net

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Txtm.Text = Datetm.Value.Month.ToString()

        If Txtm.Text <= 3 And Txtm.Text >= 1 Then
            Txtq.Text = "الفصل الاول"
        End If
        If Txtm.Text <= 6 And Txtm.Text >= 3 Then
            Txtq.Text = "الفصل الثاني"
        End If
        If Txtm.Text <= 9 And Txtm.Text >= 6 Then
            Txtq.Text = "الفصل الثاني"
        End If
        If Txtm.Text <= 12 And Txtm.Text >= 9 Then
            Txtq.Text = "الفصل الثاني"
        End If
    End Sub

هذا الكود بس اضف عنك تكست بوكس لخانة الشهر لان الكود يخذ الشهر من التكست بوكس ارجو ان يكون الرد مفيد لك واليك مثال في المرفقات

فصل السنة.rar

شكرا لك أخي ، سأجرب الكود .