Membuat animasi risize tanggal dengan timer

Sebelum kita memulai pembuatan kode program, siapkan dulu Timer1, Timer2, Textbox, Frame, CommandButton dan Calendar ke dalam Form.
kira-kira designnya seperti gambar di bawah ini.

Setelah selesai membuat design seperti gambar di atas, frame di kecilkan sampai mengecil hingga yang kelihatan hanya Timernya saja, lihat gambar di bawah ini :

Berikut adalah contoh kode programnya :

Private Sub Text1_Click(Index As Integer)
    Select Case Index
    Case 1
        Timer1.Enabled = True
    End Select
End Sub

Private Sub Timer1_Timer()
    frame.Visible = True
    frame.Width = frame.Width + 150
    frame.Height = frame.Height + 85
    If frame.Width >= 4460 Then
        Timer1.Enabled = False
    End If
End Sub

Private Sub Timer2_Timer()
    frame.Visible = True
    frame.Width = frame.Width - 150
    frame.Height = frame.Height - 85
    If frame.Width <= 450 Then
        Timer2.Enabled = False
        frame.Visible = False
    End If
End Sub

Private Sub Calendar1_Click()
    Text1(1).Text = Calendar1.value
End Sub

Private Sub tombolTutup_Click()
    Timer2.Enabled = True
End Sub

Posted in: VB