Доработать игру "Кузнечик", где кнопка прыгает по форме - Visual Basic .NET

  1. Сделал игру "Кузнечик" по книге Лукина. Суть игры:Нажимаешь на кнопку и она прыгает по всей форме(через rnd). Я решил ее доработать.Сделал счет,возможность засекать время через timer. Теперь появились вопросы. 1. Как в msgbox вывести счет из label 2. Как сделать что-бы можно было посмотреть остаток времени из timer в label. Вот код.Помогите реализовать.В меня плюшка (+)


textual

Код:

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


Похожие ответы
  1. У меня на форме pictureBox при нажимании клавиш она двигается! как сделать чтобы при встречи с другим pictureBox1,pictureBox1 исчезал! как-то над с помоoью Location?

  1. Здравствуйте! Я сделала игру, только есть проблемы: очки не начисляются при выстреле в картинку и не исчезает надпись "Вы победили!!!", по замыслу она должна появиться в конце.vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Public Class Form1     Public score = 0       Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick         Label3.Text = score         PictureBox1.Image = My.Resources._16_3         PictureBox1.Enabled = False         Timer1.Interval = 300         Timer1.Enabled = True         My.Computer.Audio.Play(My.Resources.wood_destroyed_a2, AudioPlayMode.Background)         If score = 30 Then             winner()         End If     End Sub       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         Timer1.Interval = 3000         PictureBox1.Enabled = True         Dim generator As New Random         Dim randomValue As Integer         Dim randomValueb As Integer         Timer1.Enabled = True         randomValue = generator.Next(10, 400)         randomValueb = generator.Next(10, 500)         PictureBox1.Location = New Point(randomValue, randomValueb)         PictureBox1.Image = My.Resources.cartoon_ghost     End Sub     Private Sub winner()         Timer1.Enabled = False         Label2.Visible = True         PictureBox1.Visible = False     End Sub End ClassПожалуйста, помогите!!!