PUBLIC SUB Button1_Click()IF CheckBox1.Value = TRUE THEN
FMain.Hide
Form1.Show
END IF
IF CheckBox2.Value = TRUE THEN
FMain.Hide
Form2.Show
END IF
IF CheckBox3.Value = TRUE THEN
FMain.Hide
Form3.Show
END IF
END
FMain.Hide
Form1.Show
END IF
IF CheckBox2.Value = TRUE THEN
FMain.Hide
Form2.Show
END IF
IF CheckBox3.Value = TRUE THEN
FMain.Hide
Form3.Show
END IF
END
No hay comentarios:
Publicar un comentario