タイムラグについて (ID:141710)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB2008です １から１０までの数を入力して, あっていれば「当たり」はずれたときは「残念」と表示する プログラムです。 文字を入力し、Xの値が出てから2秒くらいたったから「当たり」などの 表示をさせたいのですが、それらが同時にでてしまいます。 どのようにしたらタイムラグを発生させることができるのかな？ Randomize() Dim X As Integer X = Int(Rnd() * 10) + 1 Dim pn As Integer pn = InputBox("1〜10までの数を入力してください") Select pn Case Is < 0 MessageBox.Show("1〜10までの数を入力してください") Case Is > 10 MessageBox.Show("1〜10までの数を入力してください") Case Is = X Label1.Text = X.ToString() Label2.Text = pn.ToString() Threading.Thread.Sleep(3000) MessageBox.Show("当たり") Case Else Label1.Text = X.ToString() Label2.Text = pn.ToString() Threading.Thread.Sleep(3000) MessageBox.Show("残念") End Select