Attribute VB_Name = "Module1"
'Type pointapi
 ' x As Integer      'bei 32 Bit>>> x As Long
  'y As Integer     ' wie oben
'End Type
'Declare Function Polygon Lib "GDI" (ByVal hdc As Integer, lpPoints As _
'pointapi, ByVal nCount As Integer) As Integer

Type pointapi
  x As Long
  y As Long
End Type

Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, _
lpPoint As pointapi, ByVal nCount As Long) As Long

Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Const snd_Async = &H1
'Bei 32 Bit:
'Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, _
'lpPoint As pointapi, ByVal nCount As Long) As Long


