Private Sub CheckBox1_Click(sender As Object, e As System.EventArgs) _
      Handles CheckBox1.Click
        PlazierenTextbox(sender)
    End Sub
 
    Private Sub CheckBox2_Click(sender As Object, e As System.EventArgs) _
      Handles CheckBox2.Click
        PlazierenTextbox(sender)
    End Sub
 
    Private Sub CheckBox3_Click(sender As Object, e As System.EventArgs) _
      Handles CheckBox3.Click
        PlazierenTextbox(sender)
    End Sub
 
    Sub PlazierenTextbox(ByVal ClickObjekt As Object)
 
        TextBox1_LostFocus(Nothing, Nothing)
 
        For Each c As Control In Controls
            If TypeOf c Is CheckBox Then
 
                If c.Name = ClickObjekt.Name Then
                    Panel1.Top = c.Top - 2
                    Panel1.Width = c.Width + 70
                    Panel1.Left = c.Left + 18
                    TextBox1.Text = c.Text
                    TextBox1.Tag = c.Name
                End If
 
            End If
        Next
 
        Panel1.Visible = True
 
    End Sub