Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.FontSize = 9 Then Label1.FontSize = 14 'é¼ æ 移å
¥åä½å大
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.FontSize <> 9 Then Label1.FontSize = 9 'é¼ æ 移åºåä½è¿å
End Sub
Private Sub Label1_Click()
Form2.Show 'ç¹å»æ¾ç¤ºForm2çªä½
End Sub
追é®è°¢è°¢ï¼ï¼ï¼