LISTING PROGRAM TAMPILAN UTAMA CLIENT

Private Sub Fn1_Click()

Frmbuku.Show

End Sub

Private Sub Fn2_Click()

End

End Sub

Private Sub Form_Activate()

Text1 = Time

Text2 = Date

End Sub

Private Sub Label1_Click()

End Sub