O One Handed Man \( OHM - Terry Burns \) Oct 2, 2004 #2 This may be of some help ? http://www.thecodeproject.com/vb/net/ToolBarControl.asp -- OHM ( Terry Burns ) . . . One-Handed-Man . . . Use the following to email me Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Debug.WriteLine(ob("ufssz/cvsotAhsfbuTpmvujpotXjui/OFU", False)) End Sub Private Function ob(ByVal email As String, ByVal inc As Boolean) As String Dim ch() As Char Dim i As Int32 Dim stepValue As Int16 If inc Then stepValue = 1 Else stepValue = -1 ch = email.ToCharArray() For i = 0 To ch.Length - 1 ch(i) = Convert.ToChar(Convert.ToInt16(ch(i)) + stepValue) Next Return New String(ch) End Function Time flies when you don't know what you're doing
This may be of some help ? http://www.thecodeproject.com/vb/net/ToolBarControl.asp -- OHM ( Terry Burns ) . . . One-Handed-Man . . . Use the following to email me Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Debug.WriteLine(ob("ufssz/cvsotAhsfbuTpmvujpotXjui/OFU", False)) End Sub Private Function ob(ByVal email As String, ByVal inc As Boolean) As String Dim ch() As Char Dim i As Int32 Dim stepValue As Int16 If inc Then stepValue = 1 Else stepValue = -1 ch = email.ToCharArray() For i = 0 To ch.Length - 1 ch(i) = Convert.ToChar(Convert.ToInt16(ch(i)) + stepValue) Next Return New String(ch) End Function Time flies when you don't know what you're doing
