Private Sub stitelred_ValueChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs)
        lblTitelFont.ForeColor = System.Drawing.Color.FromArgb(stitelred.Value, _
        stitelgreen.Value, stitelblue.Value)
        txtTitelFontRed.Text = stitelred.Value
    End Sub