Question

在VB中怎样让标签在原地闪动，点击后可以弹出新的窗体

RT
在VB中怎样让标签在原地闪动，点击后可以弹出新的窗体。
字体是不是要是对方的电脑上没有那个字体，就会变成其他的字体？
是的话，怎么解决？

Answer 1

或者修改成自己有的字体，或者安装那种字体：
添加1个窗体Form1
在窗体Form1上添加1个时钟控件timer1，设置它的Interval属性为1000，就达到1秒钟1次的频率。如果要提高闪烁频率，就减少该值
在窗体Form1上添加标签label1
双击timer1，编写代码：
If Label1.ForeColor = &HFF& Then
Label1.ForeColor = &H80000012
Else
Label1.ForeColor = &HFF&
End If
双击标签Label1，编写代码：
Private Sub Label1_Click()
Form2.Show
End Sub
完成

Answer 2

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Label1_Click()
Dim x As New Form1
x.Show
End Sub

Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub