ポップアップの年月をラベルに表示させるには？

超初心者  2008-07-09 14:30:42  No: 140055  IP: 192.*.*.*

こんにちは、VB6.0での処理が上手くいかず困ってるので、
質問をさせていただきます。

①選択された年を取得
②ラベルに表示
③カレンダー表示 (引数に年と月が必要)
④スケジュールの表示

という流れで処理を書いているのですが、
「ByRef 引数の型が一致しません。」とでて
上手くいきません。処理文は、

Private Sub PopUpYear_Click(Index As Integer)
         
Me.PopupMenu PopUpMenuYear
  Dim sYear As String
    sYear = lblYear.Caption

lblYear.Caption = PopUpMenuYear.Caption
    Call show_Calender(sYear, sMonth)
    Call show_Schedule
    
と書いていて、 call文の方の関数は動くのは確認済です。
どのように書いたらよいかご教授お願いします。

編集 削除
まさやん  2008-07-10 12:15:13  No: 140056  IP: 192.*.*.*

show_Calender関数の引数の型が違うのかと・・・

例えば、
Private Sub show_Calender(byRef sYear As Long, ByRef sMonth As Long)
になってるとか。
本当は、
Private Sub show_Calender(byRef sYear As String, ByRef sMonth As String)
が正しい筈ですよね？

編集 削除