>>480
Private Sub Command1_Click()
Form2.Check1.Value = 1
End Sub