Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Private Const WM_SCROLL = 277
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'Code zum Scrollen:
Dim intParameter As Integer
intParameter = 1
SendMessage FensterHandle, WM_SCROLL, intParameter, 0
'andere Werte für intParameter (durch Ausprobieren herausgefunden):
'4=Ganz nach oben scrollen
'0=eine Zeile rauf scrollen
'1=eine Zeile runter scrollen