Attribute VB_Name = "Module1"
Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Public Const g = 98.1 'Beschleunigung in dm/s²
Public Const g2 = 9.81 'm/s²
Public Const u = 0.64 'Reibungszahl Mü
