Dim myform As frmModal
Set myform = New frmModal
myform.Caption = "acanthus"
myform.VLdate = #1/1/2002#
myform.Show vbModal
Dim myform As frmModal
Set myform = New frmModal
myform.Caption = "acanthus"
myform.VLdate = #1/1/2002#
myform.Show vbModal
Option Explicit
Private mintTest As Integer
Private Sub CommandButton1_Click()
Me.TextBox1.Text = mintTest
End Sub
Private Sub UserForm_Activate()
If Me.Visible = False Then
'quietly change something.
mintTest = 5
End If
End Sub