Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim th As Threading.Thread
        th = New Threading.Thread(New Threading.ParameterizedThreadStart( _
          AddressOf FullMSG))
        th.Start("Meldung")
    End Sub
    Private Sub FullMSG(ByVal msg As Object)
        MessageBox.Show(msg, "Meldung", MessageBoxButtons.OK, _
          MessageBoxIcon.Information)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus