Visual Basic

<br />
Public function BeforeTheDelimiter(ByVal MyString as String, ByVal dlmtr as String) As String<br />
'Example: MyString = "1239980 - Microsoft" and dlmtr = " - "<br />
Return Mid(MyString, 1, MyString.IndexOf(dlmtr)) <br />
'result: BeforeTheDelimiter returns 1239980<br />
End Function<br />

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