If ColorDialog1.ShowDialog = DialogResult.OK Then
Dim Text18 As TextObject
Me.Color = ColorDialog1.Color
end if

please don't make many threads with same topic, just use one thread...
its annoying..

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.