ช่วยทีครับ คือจะสร้างฟอร์มตามรูปอ่ะครับ

เริ่มจากการกรอกตัวหนังสือลงใน Textbox  ด้านบน(ตัวอักษรใหญ่หรือเล็กก็ได้)  หลังจากนั้นคลิ๊กที่ปุ่มเปลี่ยนขนาด จะได้ผลลัพใน Textbox ที่สองโดยเปลี่ยนขนาดตัวอักษรจากใหญ่เป็นเล็กจากเล็กเป็นใหญ่

โดยใช้ทำสั่ง  Ucase  และ  Lcase

ผมลองทำดูแล้วแต่มันเปลี่ยนเพียงอย่างเดียว  คือ  ถ้าใช้ Ucase ก็จะเปลี่ยนเฉพาะ ตัวเล็กเป็นตัวใหญ่  แล้วตัวตัวใหญ่มันไม่ยอมเปลี่ยนมาเป็นตัวเล็ก

Private Sub Command1_Click()
Dim str1 As String
str1 = Text1.Text
Text2.Text = UCase(str1)
End Sub

คือผมจะหาวิธีที่นำ ucase และ lcase  มาใช้ร่วมกัน

คุณต้องเอา String แตกเป็น Charators จากนั้นก็วน loop ตรวจสอบตัวอักษรทีละตัว
ถ้ามีรหัส ASCII เป็น 65 - 90 (อักษรพิมพ์ใหญ่) ให้ทำการบวกไปอีก 32 จะได้เป็นอักษรตัวเล็ก
ถ้ามีรหัส ASCII เป็น 97 - 122 (อักษรพิมพ์เล็ก) ให้ทำการลบออกไป 32 จะได้เป็นตัวอักษรตัวใหญ่
จากนั้นก็รวมให้เป็น String

เอาเป็นไกด์แล้วกันนะครับ ไม่ค่อยถนัด VB ครับ
ใช้ Asc() เพื่อหารหัส ASCII
ใช้ Chr() เพื่อแปลงรหัส ASCII เป็น Charator

a$ = Text1.Text
For i = 1 To Len(a$)
    l& = Asc(Mid(a$, i, 1))
    Select Case l&
    Case 65 To 90
        b$ = b$ & Chr(l& + 32)
    Case 97 To 122
        b$ = b$ & Chr(l& - 32)
    End Select
Next i
Text2.Text = b$

a$ = Text1.Text
For i = 1 To Len(a$)
    l& = Asc(Mid(a$, i, 1))
    Select Case l&
    Case 65 To 90
        b$ = b$ & Chr(l& + 32)
    Case 97 To 122
        b$ = b$ & Chr(l& - 32)
    End Select
Next i
Text2.Text = b$