01-04-2013، 01:26 PM
01-04-2013، 07:59 PM
عنوان تایپک مناسب انتخاب کنید :
اینجوری :
اینجوری :
کد:
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