文字列を大文字/小文字に変換する

'CharLower ＝＞文字列を小文字に変換する

'＜引数＞
'lpsz：変換対象の文字列

'＠戻り値＠
' 変換された文字列

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


'CharUpper ＝＞文字列を大文字に変換する

'＜引数＞
' lpsz：変換対象の文字列
'＠戻り値＠
'変換された文字列

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


Private Sub Command1_Click()
 
  Dim nString As String
    
    
    nString = CharLower(Text1.Text)
    Text1.Text = nString


End Sub

Private Sub Command2_Click()

 Dim nString As String
      
    nString = CharUpper(Text2.Text)
    Text2.Text = nString

End Sub