Form Input Kata

1. Design form dibawah ini dengan nama form input kata, gunakan label, textbox, timer, frame dan button pada toolbox

2. logika program

Listing Code :

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

Private Sub Keluar_Click()
p = MsgBox("Anda yakin akan keluar", vbQuestion + vbOKCancel, "Informasi")
If p = vbOK Then
End
End If
End Sub

Private Sub Timer1_Timer()
Ltanggal.Caption = Format(Date, "dddd, dd-mm-yyyy")
Ljam.Caption = Time
End Sub

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