Program Visual Basic String

Sintaknya :

Private Sub Timer1_Timer()
waktu = Time
tanggal = Format(Date, "dddd,d mmmm yyyy")
End Sub

Private Sub cmdkeluar_Click()
x = MsgBox("Anda Akan Keluar Dari Form Ini?", vbQuestion + vbOKCancel, "Informasi")
If x = vbOK Then
End
End If
End Sub

Private Sub cmdbersih_Click()
txtkata.Text = " "
txtleft.Text = " "
txtright.Text = " "
txtmid.Text = " "
txtlen.Text = " "
txtltrim.Text = " "
txtrtrim.Text = " "
txtlcase.Text = " "
txtucase.Text = " "
txtkata.SetFocus
End Sub

Private Sub txtkata_Change()
txtleft = Left(txtkata, 3)
txtright = Right(txtkata, 3)
txtmid = Mid(txtkata, 3, 3)
txtlen = Len(txtkata)
txtltrim = LTrim(txtkata)
txtrtrim = RTrim(txtkata)
txtlcase = LCase(txtkata)
txtucase = UCase(txtkata)
End Sub