Public Class Form1
 
    Private Delegate Sub SetTextToLabel_Progress(ByVal strTextIN As String)
 
    Structure INTERNAL_DATA_SHARED
        Dim strAssemblyname         As String
        Dim strFullyQualifiedName   As String
        Dim ThisVersion             As System.Version
    End Structure
 
    Shared ID_Shared                As INTERNAL_DATA_SHARED
 
    Dim Thread_Download As System.Threading.Thread = Nothing
 
 
    Public Sub New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
 
        'Als allererstes den Assemblynamen dieser Assembly ermitteln
        Form1.Init_Assemblyname()
        'FullyQualifiedName herausfinden
        Form1.Init_FullyQualifiedName()
        'Version herausfinden
        Form1.Init_ThisVersion()
 
    End Sub
 
    Shared Sub Init_Assemblyname()
        Dim AssemblyThis As System.Reflection.Assembly = Nothing
        AssemblyThis = System.Reflection.Assembly.GetExecutingAssembly()
        ID_Shared.strAssemblyname = _
          BASICS.Main.AssemblySpecial.GetAssemblynameForEntry_String( _
          AssemblyThis )
    End Sub
    Shared Sub Init_FullyQualifiedName()
        Dim AssemblyThis As System.Reflection.Assembly = Nothing
        AssemblyThis = System.Reflection.Assembly.GetExecutingAssembly()
        ID_Shared.strFullyQualifiedName = _
          BASICS.Main.AssemblySpecial.GetFullyQualifiedName_ForEntry_String( _
          AssemblyThis )
    End Sub
    Shared Sub Init_ThisVersion()
        Dim AssemblyThis As System.Reflection.Assembly = Nothing
        AssemblyThis = System.Reflection.Assembly.GetExecutingAssembly()
        ID_Shared.ThisVersion = _
          BASICS.Main.AssemblySpecial.GetVersion_ForEntry_Version( AssemblyThis _
          )
    End Sub
    Shared ReadOnly Property ASSEMBLYNAME As String
        Get
            return ID_Shared.strAssemblyname
        End Get
    End Property
    Shared ReadOnly Property FullyQualifiedName As String
        Get
            return ID_Shared.strFullyQualifiedName
        End Get
    End Property
    Shared ReadOnly Property ThisVersion As System.Version
        Get
            return ID_Shared.ThisVersion
        End Get
    End Property
 
    Private Sub Button1_Click( ByVal sender As System.Object,  ByVal e As _
      System.EventArgs) Handles Button1.Click
        Thread_Download.Start()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Me.CreateControl()
        Me.Label_Progress.CreateControl()
 
 
        Thread_Download = new System.Threading.Thread(AddressOf _
          Module1.Thread_Download_Routine)
        Thread_Download.Priority = Threading.ThreadPriority.Normal
    End Sub
 
    Sub SetText_Invoke(ByVal strTextIN As String)
        Me.Invoke(New SetTextToLabel_Progress(AddressOf _
          DelegateRoutine_SetText), New Object() {strTextIN})
    End Sub
 
    Private Sub DelegateRoutine_SetText(ByVal strTextIN As String)
        Me.Label_Progress.Text = strTextIN
        Me.Label_Progress.Show()
        Me.Label_Progress.Refresh()
    End Sub
 
End Class

Module Module1
 
 
    Sub Thread_Download_Routine()
 
         '***********************************************
         'anderer Code raus gemacht, weil Posting sonst zu lang
         '***********************************************
 
            'Versuchen Text ins Label zu schreiben
            Form1.SetText_Invoke("Hallo")
 
            '***********************************************
            'Hier noch weiter programmieren
            '***********************************************
 
 
        Return
errExit:
        Return
    End Sub