Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6. Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты. Читайте требования к создаваемым темам.
если рисунок в 16 основных цветах, то делаем Long-массив Dim Cnt(1 to 16) As Long, содержащий число пикселей каждого из 16 цветов.
Потом попиксельно сканируем изображение, увеличивая число соответствующих переменных в зависимости от цвета текущего пикселя. А потом просто ищем максимальный элемент в массиве Cnt.
Если картинка в более чем 16 цветах, то конвертируем его к 16-цветному виду