Problemas de programación VB6

Imitas el siguiente código:

Private Sub opt_lishuang_Click()

txt_lishuang.Text = "Profesora de inglés: Es una fashionista con la sabiduría de la generación anterior "

txt_lishuang.Text = txt_lishuang.Text amp; Chr(13) amp; Chr(10) amp; "La ignorancia de la generación más joven"

txt_lishuang.Text = txt_lishuang. Texto amp; Chr(13) amp; Chr(10) amp; "Mantra. Ups. Dios mío"

txt_lishuang.Text = txt_lishuang.Text amp; amp; "No puedo recordarlo ahora"

txt_lishuang.Text = txt_lishuang.Text amp; Chr(13) amp Chr(10) amp; "

img_lishuang.Picture = LoadPicture(App.Path amp; "\1.jpg")

End Sub

Nota: El atributo MultiLine de txt_lishuang debe establecerse en Verdadero