dim xRes as Integer
dim yRes as Integer
dim a as Integer
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
 ' nur zum veranschaulichen
Label_t.Text = "Herzlich Willkommen"
Label_h.visible = False
 xRes = 70
 yRes = 70
 PictureBox1.Location = New Point(xRes, yRes)
 
' bis hier her alles ok
subroutine()
end sub
 
 
sub subroutine()
For a=1 to 2000000
  if a= 2000000 then Label_t.visible = false
next
Label_h.visible = True
end sub