Передача переменных (объектов?)

[IvanFR]

Всем привет
Помогите, плз с вопросом. Есть 2 формы с текстовыми полями и форма с календарем. Как сделать так чтобы при вызове календаря, можно было бы определить из какого текстового поля он был вызван и отправить в это поле значение? (Форм может быть большое кол-во)

[GSerg]

Например, не страдать фигнёй и использовать элемент управления "Календарь"...

[Хакер]

В форме с календарём

Код: Выделить всё

Dim Caller as TextBox

Public Sub ShowCalendar(txtSender as TextBox)
  Set Caller = txtSender
  Me.Show 1, txtSender.Parent
End Sub



когда твой календарь нужно закрыть:
Пишем
Caller.Text = <то что должно появитья в текстбоксе>
Set Caller = Nothing

Из "формы с 2 текстбоксами"

Код: Выделить всё


Private Sub Text1_Gotfocus
  frmCalendar.ShowCalendar Text1
End Sub

Private Sub Text2_GotFocus
  frmCalendar.ShowCalendar Text2
End Sub


---

Либо не страдать фигнёй