[VB.NET] probleme avec PGCD

Bonjour,
Pour apprendre à programmer j'ai tenté de faire un programme pour calculer le PGCD de deux nombre. Seulement il y a un petit bug, lors de l'appui sur le boutton de confirmation, j'ai comme résultat 0. lors d'un second appui, je trouve le PGCD correct. voici le programme
Bonjour,
Je suis en train d'apprendre à programmer, j'ai, en ligne trouvé des cours d'algoritmie qui m'ont permi d'arriver à déduire un alogoritme, puis une programmation visual basic (je travail sur visual basic 2008 express.Net)
Seulement, petit problème : j'ai créé un boutton, et lors de l'appui sur ce boutton, le calcul se fait : résultat 0, je rapui résultat : le véritable PGCD des deux nombres.




création d'un boutton nommé button1
de deux textbox nommées textbox1 et 2
de deux labels "nombre1", "nombre2" et "PGCD des deux nombres"
Public Class Form1
Dim nombre1 As Integer
Dim nombre2 As Integer
Dim reste As Integer

Dim PGCD As Integer
Dim Resultat As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = "" Then
nombre1 = 0
Else
nombre1 = TextBox1.Text
End If



End Sub

Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text = "" Then
nombre2 = 0
Else
nombre2 = TextBox2.Text
End If



End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click




If nombre1 = 0 And nombre2 > 0 Then
PGCD = nombre2
End If


If nombre2 = 0 And nombre1 > 0 Then

PGCD = nombre1

End If


If (nombre1 And nombre2 > 0) And (nombre1 > nombre2) Then

PGCD = 1

While Not PGCD = 0

PGCD = nombre1 Mod nombre2

nombre1 = nombre2
nombre2 = PGCD

PGCD = PGCD

End While

ElseIf (nombre1 And nombre2 > 0) And (nombre1 < nombre2) Then

PGCD = 1

While PGCD > 0

PGCD = nombre2 Mod nombre1
nombre2 = nombre1
nombre1 = PGCD
PGCD = PGCD

End While

End If
Label3.Text = PGCD
End Sub
End Class