تحديد القاسم المشترك الأكبر لثلاثة أعداد

السلام عليكم

هذا الكود خاص بتحديد القاسم المشترك الاكبر لعددين وهو يعمل

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Double = TextBox1.Text, b As Double = TextBox2.Text, x As Integer
        If a > b Then
            x = a
            a = b
            b = x
        End If
        If (a * b <> 0) Then
            TextBox3.Text = "Le pgcd de " & a & " et de " & b & " est " & pgcd(a, b)
        Else
            TextBox3.Text = "Le pgcd n'existe pas lorsque l'un des deux nombres est nul !"
        End If
    End Sub

    Function pgcd1(ByVal a, ByVal b)
        Dim r, t As Integer
        r = a Mod b
        If (b > a) Then
            t = a
            a = b
            b = t
        End If
        Do While (r <> 0)
            r = a Mod b
            a = b
            b = r
        Loop
        Return a
    End Function
End Class

أريد تحويله ليحدد القاسم المشترك الاكبر ل3 أعداد