date time always the same

[wheretheidivides]

I am trying to display the current date and time, however it always gives the exact same date and time.
This is what it displays every time, "1969-12-31 19-00-00.jpg"

Sub PictureSaveInfo
'---------------------------------------------
'Get date and time
   Dim now As Long
   Dim dt As String
   DateTime.DateFormat = "yyyy-MM-dd " & " HH-mm-ss"
   dt = DateTime.Date(now)

'----------------------------------------------
   Label5060a.Text = "Saved/PokerDealersToolKit/PicsExpenses/"
   Label5060b.Text = dt & ".jpg"

'----------------------------------------------
End Sub

Now this works for the year/month/day:
Label5060b.Text = Dd.Year & "-" & Dd.Month & "-" & Dd.DayOfMonth

so is there something like it for the time?

 

[wheretheidivides]

I found the problem by accident. Left out 2nd datetime
dt = DateTime.Date(DateTime.now)