Class CircleButton
  'Public draw functions
  Public Sub DrawRedButton(ByRef DrawOn As Windows.Forms.Form)
    Draw(DrawOn, Drawing.Color.Red)
  End Sub

  Public Sub DrawBlackButton(ByRef DrawOn As Windows.Forms.Form)
    Draw(DrawOn, Drawing.Color.Black)
  End Sub

  'Private subroutine to draw the circle button in the specified color
  Private Sub Draw(ByRef DrawOn As Windows.Forms.Form, _
          ByVal Color As Drawing.Color)
      ...
  End Sub
End Class