Dim pres As New Presentation
Dim sld As Slide = pres.GetSlideByPosition(1)
Dim rect As Aspose.Slides.Rectangle
rect = sld.Shapes.AddRectangle(500, 500, 3000, 2000)
rect.LineFormat.ShowLines = False
Dim tf As TextFrame = rect.AddTextFrame("")
'The relevant code starts from here
Dim para As Paragraph
para = tf.Paragraphs(0)
Dim port As Portion
port = para.Portions(0)
port.Text = "Username = "
'Now the red colored name
'to do so, you will add a new portion object
'portion object is the object that holds indvidual textformatting
Dim newPort As New Portion(port)
para.Portions.Add(newPort)
'Set the text and color of new portion
newPort.Text = "Todd"
newPort.FontColor = Color.Red
'Write presentation on disk
pres.Write("c:\output.ppt")