Public Class Form1
    Function SetNumber(ByVal NumberArray() As Integer) As Integer
        For i As Integer = 0 To 48
            NumberArray(i) = i + 1
        Next
    End Function
    Function GetNumber(ByVal NumberArray() As Integer) As String
        Dim Number As String
        Number = Nothing
        For i As Integer = 0 To 6
            Number += NumberArray(i).ToString() + "  "
        Next
        Return Number
    End Function
    Function RandNumber(ByVal NumberArray() As Integer) As String
        Dim r As Random = New Random
        Dim temp As Integer = 0
        For i As Integer = 0 To 48
            RandNumber = r.Next(1, 48)
            temp = NumberArray(i)
            NumberArray(i) = NumberArray(RandNumber)
            NumberArray(RandNumber) = temp
        Next
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NumberArray(49) As Integer
        SetNumber(NumberArray) 'Set Array Data
        RandNumber(NumberArray)
        Dim Number As String
        Number = GetNumber(NumberArray)
        MessageBox.Show(Number, "GET Number")
    End Sub
End Class