VB.NET. Создание компонентов
Урок 3. Добавление метода

Теперь добавим к нашему компоненту метод.

Название для метода будет Rand, параметров у него не будет, возвращать же он будет случайное число от 1 до N и отображать это число на нашем компоненте.

Вот код для метода:

    Public Function Rand() As Int32
        'Объявляем экземпляр класса Random.
        Dim rnd As New Random
        'Получаем случайное число.
        k = rnd.Next(1, _N + 1)
        'Перерисоваваем.
        Invalidate()
        Return k
    End Function

Так так тут мы использовали переменную k, то ее надо объявить на уровне класса нашего компонента:

    ...
    Dim k As Int32
    ...

Теперь надо написать код для перерисовки. Вот он:

    Protected Overrides Sub OnPaint _
        (ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim g As Graphics
        g = e.Graphics()
        g.DrawString(k.ToString(), New Font("Arial", 16), _
                New SolidBrush(Color.Black), _
                Me.Width / 2, Me.Height / 2)
    End Sub

Этот метод - перекрытый из родительского класса. Это означает, что заготовку для него не надо писать вручную - для его добавления в окне кода выбираем в левом combobox'е Overrides, а в правом - название метода OnPaint:

С добавлением метода все.