Random Numbers and Adding the Random Numbers Generated

[PureCoffee]

So here is some code but I can't get past the generation. I would like to add whatever randomely generated numbers are shown in each "private sub".

Obviously I am a NOOB to VB but I rather enjoy the challenges. This has me stumped...

Can someone Please help?
Thanks,
PureCoffee

Public Class Form1

Private Sub btndeal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeal.Click
Randomize()

Me.lblRandNum1.Text = CStr(CInt(10 * Rnd() + 1))
Me.lblRandNum2.Text = CStr(CInt(10 * Rnd() + 1))

End Sub

Private Sub btndraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndraw.Click


Me.lblRandNum3.Text = CStr(CInt(10 * Rnd()) + 1)

End Sub

Private Sub btncheckscore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncheckscore.Click


Randomize()
Me.lblRandNum4.Text = CStr(CInt(10 * Rnd() + 1))
Me.lblRandNum5.Text = CStr(CInt(10 * Rnd() + 1))
Me.lblRandNum6.Text = CStr(CInt(10 * Rnd() + 1))


lblpscore.Text = CStr(CInt(lblRandNum1.Text + lblRandNum2.Text))

' lblcscore.Text =


End Sub
End Class

[kadghar]

instead of:

Me.lblRandNum1.Text = CStr(CInt(10 * Rnd() + 1))

use

Me.lblRandNum1.Text &= CStr(CInt(10 * Rnd() + 1)) & " "

this will add them to the label, instead of replacing its content.

Note: if you're using old versions of VB or VBA it should be like this:

Me.lblRandNum1.Text = Me.lblRandNum1.Text & " " & CStr(CInt(10 * Rnd() + 1))