| 
 | 
								
									
										|  |  
										|  |  
										| |  Click here to copy the following block |  | Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _ hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
 lParam As Any) As Long
 Const EM_LINESCROLL = &HB6
 
 
 
 
 
 
 
 Sub TextBoxScroll(tb As TextBox, ByVal HorizScroll As Long, _
 ByVal VertScroll As Long)
 SendMessageByVal tb.hwnd, EM_LINESCROLL, HorizScroll, VertScroll
 End Sub
 | 
 |  
										|  |  
										|  |  
 
	
		| Submitted By :
					Nayan Patel 
					 (Member Since : 5/26/2004 12:23:06 PM) |  
		|  |  
		| 
				 | Job Description :   
			He is the moderator of this site and  currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |  
		| View all (893) submissions by this author 
			(Birth Date : 7/14/1981 ) |  |  |