Membuat Huruf Kapital Tiap Kata di VB6

Assalamualaikum pengunjung muslihpedia kali ini saya akan membahas mengenai cara membuat huruf kapital tiap kata di visual basic 6. Fungsi ini merupakan salah satu fungsi yang sangat berguna bila kita ingin menginputkan nama seseorang.langkah-langkahnya:

Buat desai formnya seperti berikut:

Masukan sintak berikut pada Form_Load:

Private Sub Form_Load()
    Text1.Text = "kapital tiap kata"
    Text1.Text = Text1.Text + " visual basic."
    Text2.Text = CapAllWords(Text1.Text)
End Sub

Dan masukan pula fungsi berikut:

Function CapAllWords(ByVal MyString As String) As String
    Dim PosSpc As Integer
    Mid(MyString, 1, 1) = UCase(Mid(MyString, 1, 1))
    PosSpc = InStr(MyString, " ")
    While PosSpc <> 0
        Mid(MyString, PosSpc + 1, 1) = UCase(Mid(MyString, PosSpc + 1, 1))
        PosSpc = InStr(PosSpc + 1, MyString, " ")
    Wend
    CapAllWords = MyString
End Function

Kemudian jalankan programnya:

Sekian dulu tutorialnya, semoga bermanfaat.