Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles Button1.Click<br />
<br />
' save the old cursor<br />
Cursor oldCursor = Me.Cursor;<br />
<br />
' change the cursor to the one you want<br />
Me.Cursor = Cursors.WaitCursor<br />
<br />
' do your work here<br />
<br />
' restore the old cursor or else you may never get it back<br />
Me.Cursor = oldCursor<br />
<br />
End Sub

<br />
Me.Cursor = CType(Cursors.WaitCursor, Cursor)<br />
'Your process starts here<br />
'Your process happens here<br />
'Your process finishes here<br />
Me.Cursor = CType(Cursors.Default, Cursor)<br />

Me.Cursor = Cursors.WaitCursor
' You might have to do this, depending on your code...
Application.DoEvents()
'
' Long running code goes here...
'
Me.Cursor = Cursors.Default

Dim Rowcount As Integer=Dataset1.Tables(0).Rows.Count<br />
TextBox1.Text=Rowcount+1

Dim appPath As String = Application.StartupPath
Dim pathToPdf As String = Path.Combine(Path.GetPathRoot(appPath), "PDF\PDFName.pdf")
DIm proc As Process = Process.Start(pathToPdf)

    Imports System.Io
 

<div class="ForumSig"><font color="Blue">Dave Kreskowiak
Microsoft MVP - Visual Basic</font>
</div>