>Inherits System.Windows.Forms.Form >Public k As KALUACHCOMLib.KaluachS >Public lngHDay As Integer >Public lngHMonth As Integer >Public lngHYear As Integer >Public lngCDay As Integer >Public lngCMonth As Integer >Public lngCYear As Integer >Public intOldVscroll As Short > >Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load > intOldVscroll = 0 > k = New KALUACHCOMLib.KaluachS > k.Today() > GetDates((0)) >End Sub > >Public Sub GetDates(ByRef intMove As Short) > Dim i As Object > Dim dateCivil As Object > Dim intI As Short > Dim strRet As String > > k.MoveDay((intMove)) > > lngHDay = k.GetHebrewDay > lngHMonth = k.GetHebrewMonth > lngHYear = k.GetHebrewYear > > lngCDay = k.GetCivilDay > lngCMonth = k.GetCivilMonth > lngCYear = k.GetCivilYear > > dateCivil = DateSerial(lngCYear, lngCMonth, lngCDay) > Me.strHebrew.Text = lngHDay & " " & HebrewMonth(lngHMonth) & " " & lngHYear > Me.strCivil.Text = VB6.Format(dateCivil, "dd mmmm yyyy") > > If k.GetParshaFirst <> 0 Then > strRet = "Shabbat - Parshat " & Parsha(k.GetParshaFirst) & " " & Parsha(k.GetParshaSecond) & " " & SpecialShabbat(k.GetParshaSpecial) > Else > strRet = "Shabbat " & Parsha(k.GetParshaFirst) & " " & Parsha(k.GetParshaSecond) & " " & SpecialShabbat(k.GetParshaSpecial) > End If > > Me.Text1.Text = strRet >End Sub >Did you try after registering this DLL
k = createobject('KALUACHCOMLib.KaluachS') k.MoveDay(0)etc. and see if Intellisense will kick in?