PQ>”( JK<= FMNO?.\r:\rPrivate Sub Form_Load()\rPicturel.Picture = LoadPicture("d:\tp\lion.wmf')\rLabell.Caption = "STUVW8 X, YZVW[\] ^_"\rEnd Sub\rPrivate Sub MEXIT_Click()\rUnload Me.\rEnd Sub\rPrivate Sub MFN_Click(lndex As Integer)\rSelect Case Index\rCase 0\rLabell.FontName = "a?"\rCase 1\rLabell.FontName = "b?"\rCase 2\rLabell.FontName = "cd"\rEnd Select\rEnd Sub\rPrivate Sub MINFOR_Click()\rPicturel.Visible = False\rLabell.Visible = True\rMTEXT.Enabled = True\rEnd Sub\rPrivate Sub MPICT_Click()\rPicturel.Visible = True\rLabell.Visible = False.\rMTEXT.Enabled = False\rEnd Sub
全文预览
