>>99
Button2_Click
Timer1.Enabled = False
Do Until Label2.Text <> Label3.Text
  Label2.Text = Int((52 * Rnd()) + 1)  'こっちはいらない気もする
  Label3.Text = Int((52 * Rnd()) + 1)
Loop

でいいんじゃねえの?