Private Declare Function SetPixel Lib "gdi32.dll" _
(ByVal hDC As Long, ByVal X As Long,ByVal Y As Long, ByVal Color As Long) As Long
Private Declare Function GetPixel Lib "gdi32.dll"_
 (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Type tRGB
    Red As Long
    Green As Long
    Blue As Long
End Type
Private Function GetRGB(Color As Long) As tRGB
GetRGB.Red = Color And  255 
GetRGB.Green = Int(Color /  256 ) And  255 
GetRGB.Blue = Int(Color /  65536 ) And  255 
End Function
Private Sub Command1_Click()
On Error Resume Next
Dim Bits( 99 ,  99 ) As Long
Dim Rot_Bits( 99 ,  99 ) As Long
Dim For_X, For_Y As Long
Const x0 =  99  /  2 
Const y0 =  99  /  2 
Dim r, SinA, CosA, AlhaSin, AlhaCos As Single
Dim Temp_RGB As tRGB
Dim OldTime, AllTime, X, Y, GrayColor As Long

l_log.Clear
OldTime = GetTickCount
l_log.AddItem "Áóôåðèçàöèÿ èçîáðàæåíèÿ..."
For For_X =  0  To  99 
For For_Y =  0  To  99 
    Bits(For_X, For_Y) = GetPixel(Picture1.hDC, For_X, For_Y)
Next
Next
l_log.AddItem "Áóôåðèçàöèÿ èçîáðàæåíèÿ 100%."
l_log.AddItem "-----------------------------------------------------"
l_log.AddItem "Ðàçâîðîò áóôåðà..."
AlhaSin = Sin(Val(t_deg.Text) *  3 . 14  /  180 )
AlhaCos = Cos(Val(t_deg.Text) *  3 . 14  /  180 )

For For_X =  0  To  99 
For For_Y =  0  To  99 
    X = CInt(x0 + (((For_X - x0) * AlhaCos) - ((For_Y - y0) * AlhaSin)))
    Y = CInt(y0 + (((For_X - x0) * AlhaSin) + ((For_Y - y0) * AlhaCos)))
    Rot_Bits(For_X, For_Y) = Bits(X, Y)
    DoEvents
Next
DoEvents
Next
l_log.AddItem "Ðàçâîðîò áóôåðà 100%."
l_log.AddItem "-----------------------------------------------------"
l_log.AddItem "Îòðèñîâêà áóôåðà..."
Picture2.Cls
For For_X =  0  To  99 
For For_Y =  0  To  99 
    If Check1.Value =  1  Then
        Temp_RGB = GetRGB(Rot_Bits(For_X, For_Y))
        GrayColor = Temp_RGB.Red *  0 . 3  + Temp_RGB.Green *  0 . 59  + Temp_RGB.Blue *  0 . 11 
        SetPixel Picture2.hDC, For_X, For_Y, RGB(GrayColor, GrayColor, GrayColor)
    Else
        SetPixel Picture2.hDC, For_X, For_Y, Rot_Bits(For_X, For_Y)
    End If
Next
Next
l_log.AddItem "Îòðèñîâêà áóôåðà 100%."
l_log.AddItem "-----------------------------------------------------"
AllTime = GetTickCount - OldTime
l_log.AddItem "Çàòðà÷åíî âðåìåíè " & AllTime & " ìèëèñåêóíä."
End Sub

For For_X =  0  To  99 
For For_Y =  0  To  99 
    X = CInt(x0 + (((For_X - x0) * AlhaCos) - ((For_Y - y0) * AlhaSin)))
    Y = CInt(y0 + (((For_X - x0) * AlhaSin) + ((For_Y - y0) * AlhaCos)))
    Rot_Bits(For_X, For_Y) = Bits(X, Y)
    DoEvents
Next
DoEvents
Next