Где то ошибка подскажите...

[pr_box]

ActiveX контрол с элементом Picture1. Код такой.

Private Sub UserControl_Resize()
UserControl.Size Image1.Width, Image1.Height
End Sub

Public Sub Print_TXT(OutObjekt As Object, TxtString As String, X As Long, Y As Long, _
MaxWidth As Long, MaxHeight As Long)Dim i As Long
Dim j As Long
Dim Index As Long
Dim ArrayTXT() As Long

Index = 0

'Picture1.ScaleMode = vbPixels
Picture1.Width = MaxWidth
Picture1.Height = MaxHeight
Picture1.Cls
Picture1.Print TxtString

ReDim ArrayTXT(MaxWidth * MaxHeight)

For i = 0 To MaxWidth - 1
For j = 0 To MaxHeight - 1
Index = Index + 1
ArrayTXT(Index) = Picture1.Point(i, j)
Next j
Next i

'Печать из ArrayTXT() в объект OutObjekt методом Pset
'OutObjekt.ScaleMode = vbPixelsIndex = 0

For i = X To MaxWidth + X - 1
For j = Y To MaxHeight + Y - 1
Index = Index + 1
OutObjekt.PSet (i, j), ArrayTXT(Index)
Next j
Next i
OutObjekt.ScaleMode = vbTwips
End Sub

Подскажите, где глючит (вроде что-то с Twips)? не пойму.

И еще, как ускорить работу, может кто знает?

[Lobo]

Вообще-то, вопросов много. Глючит - не совсем конкретно. Image1 в UserControl_Resize - то же, что Picture1 в Print_TXT ? Зачем сначала печатать текст на Picture1, а потом переносить на OutObjekt (это к вопросу о скорости).

При печати на OutObjekt Index со значением 0 пропускается. Неплохо бы также установить на Picture1 и на OutObjekt одинаковые системы координат (это почему-то закомментировано).

[pr_box]

1. Image - Это для отображения значка контрола.
2. Насчет вывода прямо в OutObject - ЭТО МЫСЛЬ! (Попробую и сообщу)