Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Application.EnableVisualStyles();
Application.DoEvents();
Shared Sub Main()
Application.EnableVisualStyles()
Application.DoEvents
'Start des Forms
Application.Run(New Form1)
End Sub
Shared Sub Main()
Dim OS As OperatingSystem = Environment.OSVersion
Dim Version As Version = OS.Version
If Version.Major = 5 And Version.Minor = 1 Then
Application.EnableVisualStyles() 'Visuelle Stile aktivieren
Application.DoEvents()
Application.Run(New Form1)
End If
End Sub