Declare Sub PrintAt Lib "yetlib" Alias "PrintAt" ( _ byRef Msg As String, _ Farbe As Integer=LoWord(Color), _ Zeile As Integer=CsrLin, _ Spalte As Integer=Pos _ ) 'Spezialdeklation für PrintAt usw. Declare Function Deg2Rad Lib "yetlib" Alias "Deg2Rad" _ (WinkelInDeg As Double) As Double 'soll einen Wert zurückgeben.. Declare Function Rad2Deg Lib "yetlib" Alias "Rad2Deg" _ (WinkelInRad As Double) As Double 'soll einen Wert zurückgeben.. Declare Function MenuChar Lib "yetlib" Alias "MenuChar" ( _ byVal MenuItem As String, _ byVal First As Integer=1, _ byVal nVG As Integer=12 _ ) As String '12=hellrot Declare Function GetKeyPress lib "yetlib" Alias "GetKeyPress" ( _ byVal Msg As String, _ byVal Allowed As String, _ byVal Upper As Integer=-1 _ ) As String