VB.NET ช่วยหน่อยนะคับบบบขอร้อง เครียดมาหลายวันแล้วคับบบ TT__TT การส่งเมล์ Mail หน่อยนะคับบ รบกวนด้วยคับ ขอบคุนมากคับ

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Threading;

namespace AutoSendMail
{
    public partial class Form1 : Form
    {
        int m_index;
        bool m_stop;
        List<string> m_email;
        BackgroundWorker m_bg;

        public Form1()
        {
            InitializeComponent();

            m_email = new List<string>();
            m_email.Add("[email protected]");
            m_email.Add("[email protected]");
            m_email.Add("[email protected]");
            m_email.Add("[email protected]");
            m_email.Add("[email protected]");
            m_email.Add("[email protected]");
            m_email.Add("[email protected]");
            m_email.Add("[email protected]");
            m_email.Add("[email protected]");
            m_email.Add("[email protected]");
            
            m_bg = new BackgroundWorker();
            m_bg.DoWork += new DoWorkEventHandler(bg_DoWork);

            m_index = 0;
            m_stop = false;
            progressBar1.Maximum = 10;
            progressBar1.Step = 1;
        }

        void bg_DoWork(object sender, DoWorkEventArgs e)
        {
            while(true)
            {
                if (m_stop == true)
                {
                    Thread.Sleep(1000);
                    continue;
                }

                if (m_index >= 10)
                {
                    MessageBox.Show("Conpleted");
                    break;
                }

                progressBar1.BeginInvoke(new Action(() =>
                {
                    progressBar1.Value = m_index + 1;
                }));
                label1.BeginInvoke(new Action(() =>
                    {
                        label1.Text = "Send mail to " + m_email[m_index];
                    }));
                m_index++;
                Thread.Sleep(1000);
            }
        }

        private void button1_Click(object sender, EventArgs e)
        {
            m_stop = false;
            if(m_bg.IsBusy == false)
                m_bg.RunWorkerAsync();
        }

        private void button2_Click(object sender, EventArgs e)
        {
            m_stop = true;
        }
    }
}

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Threading

Namespace AutoSendMail
	Public Partial Class Form1
		Inherits Form
		Private m_index As Integer
		Private m_stop As Boolean
		Private m_email As List(Of String)
		Private m_bg As BackgroundWorker

		Public Sub New()
			InitializeComponent()

			m_email = New List(Of String)()
			m_email.Add("[email protected]")
			m_email.Add("[email protected]")
			m_email.Add("[email protected]")
			m_email.Add("[email protected]")
			m_email.Add("[email protected]")
			m_email.Add("[email protected]")
			m_email.Add("[email protected]")
			m_email.Add("[email protected]")
			m_email.Add("[email protected]")
			m_email.Add("[email protected]")

			m_bg = New BackgroundWorker()
			AddHandler m_bg.DoWork, New DoWorkEventHandler(AddressOf bg_DoWork)

			m_index = 0
			m_stop = False
			progressBar1.Maximum = 10
			progressBar1.[Step] = 1
		End Sub

		Private Sub bg_DoWork(sender As Object, e As DoWorkEventArgs)
			While True
				If m_stop = True Then
					Thread.Sleep(1000)
					Continue While
				End If

				If m_index >= 10 Then
					MessageBox.Show("Conpleted")
					Exit While
				End If

				progressBar1.BeginInvoke(New Action(Function() 
				progressBar1.Value = m_index + 1

End Function))
				label1.BeginInvoke(New Action(Function() 
				label1.Text = "Send mail to " & m_email(m_index)

End Function))
				m_index += 1
				Thread.Sleep(1000)
			End While
		End Sub

		Private Sub button1_Click(sender As Object, e As EventArgs)
			m_stop = False
			If m_bg.IsBusy = False Then
				m_bg.RunWorkerAsync()
			End If
		End Sub

		Private Sub button2_Click(sender As Object, e As EventArgs)
			m_stop = True
		End Sub
	End Class
End Namespace