Создадим модуль класса с именем Alpha

Код:

Private Declare Function FoxBlendIn Lib "FoxCBmp.dll" (ByVal DstDC As Long, ByVal DstX As Long, ByVal DstY As Long, ByVal SrcDC As Long, ByVal SrcBmp As Long, ByVal TransColor As Long, ByVal Alpha As Byte, ByVal Flags As Long) As Long
Dim S As PictureBox
Sub DrawAlpha(N As Object, X, Y, Alpha, Fon)
FoxBlendIn N.hdc, X, Y, S.hdc, S.Picture.handle, Fon, Alpha, -CBool(True)
End Sub
Sub Init(N As Object, File As String, Name)
Set S = Form1.Controls.Add("VB.PictureBox", "Q" & Trim(Str(Name)), N)
S.ScaleMode = vbPixels
S.AutoSize = True
S.AutoRedraw = True
S.Picture = LoadPicture(File)
End Sub
 

Использование класса Alpha

Код:

Dim D As New Alpha
Private Sub Form_Load()
D.Init Form1, "Земля.bmp", "1"
End Sub
Private Sub Timer1_Timer()
gamep.Cls
D.DrawAlpha gamep, 100, 100, 255, "&HFF0000"
End Sub

"1"- имя создаваемого программным путем PictureBox для временных файлов

gamep - PictureBox на который непосредственно производится Render (прорисовка)