Private Sub Label1_Click()
Label1.Caption = "i lovbe you i love you i _
      love youi love youi love youi love youi love youi love youi love _
      love youi love youi love youi love you_love youi love youiyouiyou"
End Sub