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