Prueba este código. Sólo tienes que usar 'Text' y no 'RichText'
Código:
TextLabel1 As TextLabel
Public Sub Form_Open()
With Me
.W = 950
.H = 400
.Padding = 5
.Arrangement = Arrange.Vertical
End With
With TextLabel1 = New TextLabel(Me) As "TextLabel1"
.Expand = True
.Text = "<h1>Problema con TextLabel y la propiedad RichText</h1>He mirado la documentación y dice que TextLabel maneja <b>RichText</b> pero cuando lo <b><i>implemento</i></b> en el código y ejecuto me dice:"
End With
End