Ma che codice hai scritto???
I tag per il codice??

Semmai:

codice:
Dim F As New Anni
F.myDate= tmpDataSistema
f.ShowDialog
Dove:

codice:
Public Class Anni

Public myDate as date

Private Sub Anni_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub

End Class