Thanks a lot travy92, your tuts are wonderful, BTW i just wanna say that maybe you can add Text Boxes and change:
Code:
Private Sub cmdCalc_Click()
Mint = DateDiff("d", "5/09/2007", "11/09/2007")
lstAnswer.AddItem "The day difference = " & Mint
End Sub
To:
Code:
Private Sub cmdCalc_Click()
Mint = DateDiff("d", Val(Text1.Text), Val(Text2.Text))
lstAnswer.AddItem "The day difference = " & Mint
End Sub
Just Saying! lol