como puedo hacer esto...

[Avellaneda]

A la segunda pregunta:

Además de lo que te indica David, tambien puedes guardar y leer el valor del Check en el registro, p.e.

Al cerrar el Form, guardamos el valor actual del Check:

Código vb:

Private Sub Form_Unload(Cancel As Integer)
RegCheck Check1
End Sub
 

Función para guardar en el registro:

Código vb:

Function RegCheck(ElControl As Control)
SaveSetting App.EXEName, "Settings", ElControl.Parent.Name & "_" & ElControl.Name, ElControl.Value
End Function
 

Al abrir el Form, recuperamos el valor del registro:

Código vb:

Private Sub Form_Load()
Check1.Value = LeerCheck(Check1)
End Sub
 

Función para leer el registro:

Código vb:

Function LeerCheck(ElControl As Control) As Long
LeerCheck = GetSetting(App.EXEName, "Settings", ElControl.Parent.Name & "_" & ElControl.Name)
End Function