やっと時間を持てるようになり、皆さんのご意見を参考にさせていただいて、まずは、タイマーを外しまして（出来れば、タイマーを使ってスロットのようにしたかったのですが、背に腹は代えられません）、思うような成果が得られました。
ただ、以下のコードをButton1_Clickに記入しているにもかかわらず、

Do
Label3.Text = Int((52 * Rnd()) + 1)
h = Val(Label2.Text)
i = Val(Label3.Text)
Loop Until h <> i

何のコードも記入していないはずのButton2をクリックした時に、上記のイベントが起きます。（Button1をクリックした時には何も起きません。）
これは何故なのでしょうか…？