Upper-Lower Case

'UPPER-lower case



Private Declare Function CharLower
Lib "user32" Alias "CharLowerA" (ByVal lpsz
As String) As Long

Private Declare Function CharUpper
Lib "user32" Alias "CharUpperA" (ByVal lpsz
As String) As Long



Private Sub Form_Load()

Dim strSave As String, Upper
As String, Lower As String

'Set the Autoredraw property (set to Persistent Graphic)

Me.AutoRedraw = True

'This is the string we're going to use

strSave = "RockessAlpha.blogspot.com"

'Print it to the form

Me.Print "Original : " + strSave

'Convert all the characters to uppercase (like the UCase$-function from VB)

CharUpper strSave

Me.Print "Upper Case : " +  strSave

'Convert all the characters to lowercase (like the LCase$-function from VB)

CharLower strSave

Me.Print "Lower Case : " +  strSave

End Sub