Contoh di bawah ini adalah bagaimana mengecek karakter:

1. buat sebuah coomand;

Private Sub Command1_Click() 'command button
Text1.Text = CapFirst$(Text1.Text)
End Sub 'end command

Private Sub Command2_Click() 'command button
Text1.Text = LCase$(Text1.Text)
End Sub 'end command button

'add 1 module
Declare Function CapFirst$ Lib "CAPFIRST.DLL" Alias "CAPFIRST" (ByVal St$)



Ilmu Visual Basic

(catatan: Bukan isi sebenranya)



masuk kesini