13518219792
Public Class Form1
成都创新互联 - 成都移动服务器托管，四川服务器租用，成都服务器租用，四川网通托管,绵阳服务器托管，德阳服务器托管，遂宁服务器托管，绵阳服务器托管，四川云主机，成都云主机，西南云主机，成都移动服务器托管，西南服务器托管，四川/成都大带宽，成都机柜租用，四川老牌ＩＤＣ服务商
Public str() As String
Public flag As Integer = 0 //标志位，记录上一次显示的字符串在数组中的位置
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 2000
Timer1.Start()
str = {"正在初始化A...", "正在初始化B...", "正在初始化C...", "初始化完成！"}
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = str(flag)
flag = flag + 1 //保证下次执行label1.text=str(flag)显示不同内容
If flag = 4 Then //加载完了，定时器关掉
Timer1.Stop()
End If
End Sub
End Class
运行效果见附件屏幕录像
方法如下：
1、打开例1.1创建的工程。
2、选择窗体Form1并双击该窗体，出现窗体的调事件的过程代码体。
3、在窗体调用的过程代码体中编制如下过程代码：
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、设置窗体Form1的SartUpPosition属性为2-屏幕中心，这样运行窗体可以发现，屏幕的大小与例1.6中通过属性设置的大小是一致的。
获取屏幕大小宽和高 和初始化窗口的尺寸 屏幕减尺寸等于你想要的left值 和top值 即屏幕比你窗体高多少 宽多少就是你右对齐的初始值 右上角对齐top依旧为0
窗体初始化时，设定Windowstate= maximized.
窗体分辨率仍然可以设成1920x1080。设计元素的时候拖拽，或者使用代码初始化控件。
你是不是用的Visual Studio来开发的？如果是，这样操作：打开 项目 菜单 中的 XXX属性，在弹出的属性页选择最上面那个 应用程序 标签，里面有个启动窗体，你选择一下就可以了。
如果你不是用的visual Studio来开发的，那么可以考虑把另外一个窗口的visible属性先设置为false或者把你要显示的窗口改为对话框的形式，大小比另外一个窗口大一点或者一样（即 模态窗口，必须关闭才能继续操作），这样都可以实现你要的效果。
