Form Penghitungan Selisih Tanggal dan Source Kodenya

Source Kodenya adalah :
Private Sub Command1_Click()
Dim tg1 As Date
Dim tg2 As Date
tg1 = Text1
tg2 = Text2
Text3 = tg2 - tg1

End Sub

Private Sub Command2_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
Form5.Hide
Form6.Hide
Form7.Hide
End Sub

Private Sub Command3_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "

End Sub