Нашёл ошибку ,я неправильно задал условие ...
поменяйте код :
If r2 = 0 Or g2=0 Or b2=0 Then
на
If r2 = 0 And g2=0 And b2=0 And Mask=True Then
добавте в
Function AlphaSprite#(AlphaImage,XP%,YP%,v# =0.5)
,Mask%= False
чтоб получилось
Function AlphaSprite#(AlphaImage,XP%,YP%,v# =0.5,Mask%= False)
вот теперь чтоб сделать прозрачным и замаскировать чёрный цвет
последний параметр в функции указать 1 ,без маски 0 или пропустить параметр.
AlphaSprite(ddd ,mx+10,my,q,1)