もうパンツ脱ぐ勢いでソースだします。
おそらくどっかに致命的なものが・・・。
Sub main()
Dim tmp As Long

Load Form1
Form1.Show
'tmp = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 500, 500, 0, 0, SWP_SHOWWINDOW)

Byouga

End Sub
Public Sub Byouga()
'リージョンのハンドル
Dim hRgn As Long

'Combine用リージョンハンドル
Dim hRgnTmp As Long

'CreateRectRgnの戻り値を格納
Dim modoriRgn
'透明にしたい色を指定。
Dim toumeiColor As Long
'For文用
Dim i, j As Integer

Form1.Show

toumeiColor = Form1.Picture1.Point(0, 0)
hRgn = CreateRectRgn(0, 0, 0, 0)
For i = 0 To 31
For j = 0 To 31
If Form1.Picture1.Point(i, j) <> toumeiColor Then
hRgnTmp = CreateRectRgn(i, j, i + 1, j + 1)

modoriRgn = CombineRgn(hRgn, hRgn, hRgnTmp, RGN_OR)
modoriRgn = DeleteObject(hRgnTmp)
End If
Next j
Next i


modoriRgn = SetWindowRgn(Form1.hwnd, hRgn, True)

End Sub
お願いします！