[persiaunknown]

عنوان تایپک مناسب انتخاب کنید :
اینجوری :

کد:

Private Sub Form_Load()
Text1.Text = "Code By Parsicoders.com"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 117 Then
Text1.Text = Text1.Text + vbCrLf
Text1.SelStart = Len(Text1)
End If
End Sub