Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtVerslag_LostFocus(sender, e)
    End Sub

Private Sub txtVerslag_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtVerslag.GotFocus
        If txtVerslag.ForeColor = Color.Gray Then
            txtVerslag.ForeColor = Color.Black
            txtVerslag.Clear()
        End If
    End Sub

    Private Sub txtVerslag_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtVerslag.LostFocus
        If txtVerslag.Text = String.Empty Then
            txtVerslag.ForeColor = Color.Gray
            txtVerslag.Text = "Grayed-out text"
        End If
    End Sub