如何在vb.net中选择复选框时使用datagridview发送多条消息？

Imports System.Data.SqlClient

Public Class Form1
    Private messages As New List(Of String)()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 使用一个DataTable作为数据源来显示消息列表
        Dim dataTable As New DataTable()
        dataTable.Columns.Add("Message", GetType(String))
        ' 添加一些示例消息到DataTable
        dataTable.Rows.Add("消息1")
        dataTable.Rows.Add("消息2")
        dataTable.Rows.Add("消息3")
        DataGridView1.DataSource = dataTable
    End Sub

    Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
        ' 处理复选框的选择和取消选择事件
        Dim checkBox As CheckBox = DirectCast(sender, CheckBox)
        Dim selectedMessage As String = DirectCast(DataGridView1.CurrentRow.Cells("Message").Value, String)
        If checkBox.Checked Then
            messages.Add(selectedMessage)
        Else
            messages.Remove(selectedMessage)
        End If
    End Sub

    Private Sub ButtonSend_Click(sender As Object, e As EventArgs) Handles ButtonSend.Click
        ' 发送选中的消息
        For Each message As String In messages
            ' 在这里编写发送消息的代码，可以使用网络通信、电子邮件、即时通讯等方式发送消息
            MessageBox.Show("发送消息: " & message)
        Next
    End Sub
End Class