Dim wtext As String
    Dim z
    Dim xRes As Integer
    Dim yRes1 As Integer = 382
    Dim yRes As Integer
    Dim nScreenWidth
    Dim nScreenHeight
    Dim countLinks As Integer = 0
    Dim newLabel As New Label()
    Public h = 1024
    Public w = 1280
    Public v = 5 / 4
    Public ws = 16 / 9
    Dim varih
    Dim variw
 
    Sub zoom()
        With Screen.PrimaryScreen.Bounds
            nScreenWidth = .Width
            nScreenHeight = .Height
        End With
        varih = nScreenHeight / 1024
        If varih < 1 Then
            variw = 0.75
        Else
            variw = 1
        End If
    End Sub
 
 Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load
        zoom()
        weiter.Tag = 1
        Label_t.Text = "Herzlich Willkommen"
        z = Len(Label_t.Text)
        xRes = (nScreenWidth / 2) - (Label_t.Bounds.Width / 2)
        yRes = (nScreenHeight / 2) - (Label_t.Bounds.Height / 2)
        Label_t.Location = New Point(xRes, yRes)
        xRes = nScreenWidth - 100
        yRes = nScreenHeight - 125
        weiter.Location = New Point(xRes, yRes)
        weiter.Text = "weiter"
        xRes = 70
        yRes = 70
        PictureBox1.Location = New Point(xRes, yRes)
        PictureBox1.Width = PictureBox1.Width * variw
        PictureBox1.Height = PictureBox1.Height * variw
        MatheaufgabenToolStripMenuItem.Enabled = False
        MathelexikonToolStripMenuItem.Enabled = False
        Boxhand_links.Width = Boxhand_links.Width * variw
        Boxhand_links.Height = Boxhand_links.Height * variw
        z = Len(Label_t.Text)
        xRes = (nScreenWidth / 2) - (Label_t.Bounds.Width / 2)
        yRes = (nScreenHeight / 2) - (Label_t.Bounds.Height / 2)
        Label_t.Location = New Point(xRes, yRes)
 
    End Sub
' diese Sub soll abgespielt werden wenn alles geladen und angezeigt ist, nicht 
' während des ladens!!!!! das ist wichtig. Ich weis dass ich auch die 
' Abspieleigenschaft ändern kann und es in Formlosd integriere aber während des 
' Abspilens sollen später verschiedene Objekte eingeblendet werden. 
 
 
 
sub abspielen()
 My.Computer.Audio.Play(My.Resources.lerni2, AudioPlayMode.WaitToComplete)
end Sub