Visual Basic Select Case

SelectCase.vb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim x, y As Integer
        x = InputBox("İlk sayıyı gir: ")
        y = InputBox("İkinci sayıyı gir: ")
        Label1.Show()
        Select Case x * y
            Case 25
                Label1.Text = ("X*Y Sonucu= 25 dir.")
            Case 25 To 100
                Label1.Text = ("X*Y Sonucu= 25 ile 100 dir.")
            Case Is > 125
                Label1.Text = ("X*Y Sonucu= 125 sayısından yüksektir.")
            Case Else
                Label1.Text = ("X * Y nin sonucu işlemlerden hiçbiri değildir.")
        End Select
    End Sub
End Class