Private Sub CheckBox1_Click(sender As Object, e As System.EventArgs) _
      Handles CheckBox1.Click
 
        TextBox1_LostFocus(Nothing, Nothing)
        Panel1.Top = CheckBox1.Top - 3
        Panel1.Width = CheckBox1.Width + 70
        Panel1.Left = CheckBox1.Left + 18
        TextBox1.Text = CheckBox1.Text
        TextBox1.Tag = "CheckBox1"
        Panel1.Visible = True
 
    End Sub
 
    Private Sub CheckBox2_Click(sender As Object, e As System.EventArgs) _
      Handles CheckBox2.Click
 
        TextBox1_LostFocus(Nothing, Nothing)
        Panel1.Top = CheckBox2.Top - 2
        Panel1.Width = CheckBox2.Width + 70
        Panel1.Left = CheckBox2.Left + 18
        TextBox1.Text = CheckBox2.Text
        TextBox1.Tag = "CheckBox2"
        Panel1.Visible = True
    End Sub
 
    Private Sub CheckBox3_Click(sender As Object, e As System.EventArgs) _
      Handles CheckBox3.Click
 
        TextBox1_LostFocus(Nothing, Nothing)
        Panel1.Top = CheckBox3.Top - 2
        Panel1.Width = CheckBox3.Width + 70
        Panel1.Left = CheckBox3.Left + 18
        TextBox1.Text = CheckBox3.Text
        TextBox1.Tag = "CheckBox3"
        Panel1.Visible = True
    End Sub