求个VB问题，急啊，关于随机数

Private Sub Command1_Click()
Randomize
N = CInt(Text1.Text)
M = CInt(Text2.Text)
Label1.Caption = CStr(Int(Rnd() * (M - N + 1)) + N)
Label2.Caption = CStr(Int(Rnd() * (M - N + 1)) + N)
Label3.Caption = CStr(Int(Rnd() * (M - N + 1)) + N)
End Sub

Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
If Val(Text1) > Val(Text2) Then
n = Val(Text2)
m = Val(Text1)
Else
m = Val(Text2)
n = Val(Text1)
End If
Label1.Caption = RndNum(n, m)
Label2.Caption = RndNum(n, m)
Label3.Caption = RndNum(n, m)
End Sub

Private Function RndNum(Min As Integer, Max As Integer) As Integer
Randomize
RndNum = Int(Rnd * (Max - Min + 1) + Min)
End Function

Public Class Form1
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub

Private Sub Button2_Click(ByVal