Latihan 3 - Menampilkan Jam dan Tanggal - Visual Basic

buat desain seperti di bawah ini :

Dan beri timer 1 dengan interval 1000 .
dan masukan script di bawah ini :

'untuk checkbox yang bercaption tampikan tanggal
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Visible = True
Label1.Caption = FormatDateTime(Date, vbLongDate)
Else
Label1.Visible = False
Label1.Caption = ""
End If
End Sub
'untuk checkbox yang bercaption stop jam
Private Sub Check2_Click()
If Check2.Value = 1 Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

'untuk di timer
Private Sub Timer1_Timer()
Form1.Caption = "Sekarang Jam : " & FormatDateTime(Time(), vbLongTime)
End Sub