VB 2008几个简单的问题

我要做一个随机的点名器，就是在班上老师上课的时候（我们使用电脑投影Powerpoint课件上课的）可以用来点学生回答问题或者其它用途。
现在有几个问题
先介绍一下环境：
系统：Windows Vista Ultimate
Visual Studio 2008(.Net 3.5)
1、在桌面快捷方式中设置的快捷键一旦启动Powerpoint就会无效
2、我做的程序为了在点名的时候尽量不挡住课件所以窗口很小，但是有时候老师想放大按了最大化以后窗体的内容只会在左上角，还是那么小。我不要对象的大小随着窗体大小变化，但是我想要当点击最大化的时候可以放大到我指定的样子。
3、点名的时候会重复点到一个人。我想让点名器每次启动的时候会不重复点到同一个人，也就是随机数不会产生重复。重新启动点名器后复原。
4、Msgbox如何使每一行的文字都居中？
5、如何让程序不可以随意拖动边缘改变大小却可以移动窗口。
6、我明明把程序相关的 .Net 文件按了复制到本地，而且程序体积也扩大了几十倍。但是在没有 .Net 3.5 的地方还是不能使用。初始化错误。
以下是程序的代码。懒得修改，直接发上来。其中含有真实姓名。请勿在本帖以外的地方泄露：( VB2008 的代码，和VB6不同哦)Public Class Form1    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Timer1.Enabled = False Then
            Timer1.Enabled = True
            Button1.Text = "停止"
        ElseIf Timer1.Enabled = True Then
            Timer1.Enabled = False
            Button1.Text = "开始"
            Beep()
            If Label2.Text = 40 Then
                MsgBox("本班没有40号，为保证抽取概率更平均故保留此号码，请重新抽取。")
            End If
        End If
    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a As String
        a = Int(Rnd() * 64 + 1)
        Label2.Text = a
        If a = 1 Then
            Label4.Text = "曾斯扬"
        ElseIf a = 2 Then
            Label4.Text = "林健标"
        ElseIf a = 3 Then
            Label4.Text = "胡艺馨"
        ElseIf a = 4 Then
            Label4.Text = "陈伟洋"
        ElseIf a = 5 Then
            Label4.Text = "郑昊墉"
        ElseIf a = 6 Then
            Label4.Text = "丘  洋"
        ElseIf a = 7 Then
            Label4.Text = "刘仕豪"
        ElseIf a = 8 Then
            Label4.Text = "黎泽豪"
        ElseIf a = 9 Then
            Label4.Text = "曾炽凡"
        ElseIf a = 10 Then
            Label4.Text = "郑  涛"
        ElseIf a = 11 Then
            Label4.Text = "谢子豪"
        ElseIf a = 12 Then
            Label4.Text = "黄弋戈"
        ElseIf a = 13 Then
            Label4.Text = "张宗宁"
        ElseIf a = 14 Then
            Label4.Text = "黄靖鑫"
        ElseIf a = 15 Then
            Label4.Text = "彭  闽"
        ElseIf a = 16 Then
            Label4.Text = "卢冠宇"
        ElseIf a = 17 Then
            Label4.Text = "刘  冰"
        ElseIf a = 18 Then
            Label4.Text = "张旭升"
        ElseIf a = 19 Then
            Label4.Text = "谢晓怡"
        ElseIf a = 20 Then
            Label4.Text = "陈  仪"
        ElseIf a = 21 Then
            Label4.Text = "黄  磊"
        ElseIf a = 22 Then
            Label4.Text = "刘靖铭"
        ElseIf a = 23 Then
            Label4.Text = "张敏威"
        ElseIf a = 24 Then
            Label4.Text = "蔡宝谊"
        ElseIf a = 25 Then
            Label4.Text = "邱志伟"
        ElseIf a = 26 Then
            Label4.Text = "曾宪立"
        ElseIf a = 27 Then
            Label4.Text = "丁  翔"
        ElseIf a = 28 Then
            Label4.Text = "彭  程"
        ElseIf a = 29 Then
            Label4.Text = "曾心羽"
        ElseIf a = 30 Then
            Label4.Text = "吴福源"
        ElseIf a = 31 Then
            Label4.Text = "黄悦媛"
        ElseIf a = 32 Then
            Label4.Text = "陈相君"
        ElseIf a = 33 Then
            Label4.Text = "王国全"
        ElseIf a = 34 Then
            Label4.Text = "余  杰"
        ElseIf a = 35 Then
            Label4.Text = "苏金顺"
        ElseIf a = 36 Then
            Label4.Text = "黄勇基"
        ElseIf a = 37 Then
            Label4.Text = "范启扬"
        ElseIf a = 38 Then
            Label4.Text = "薛力钟"
        ElseIf a = 39 Then
            Label4.Text = "张天健"
        ElseIf a = 40 Then
            Label4.Text = ""
        ElseIf a = 41 Then
            Label4.Text = "何石彪"
        ElseIf a = 42 Then
            Label4.Text = "李明泽"
        ElseIf a = 43 Then
            Label4.Text = "庄  帆"
        ElseIf a = 44 Then
            Label4.Text = "林浩斌"
        ElseIf a = 45 Then
            Label4.Text = "丘瑞豪"
        ElseIf a = 46 Then
            Label4.Text = "李泽华"
        ElseIf a = 47 Then
            Label4.Text = "冯毅锋"
        ElseIf a = 48 Then
            Label4.Text = "巫诗妤"
        ElseIf a = 49 Then
            Label4.Text = "曾博琦"
        ElseIf a = 50 Then
            Label4.Text = "龙思阳"
        ElseIf a = 51 Then
            Label4.Text = "田智颖"
        ElseIf a = 52 Then
            Label4.Text = "石俏扬"
        ElseIf a = 53 Then
            Label4.Text = "邹  锐"
        ElseIf a = 54 Then
            Label4.Text = "郑冰雯"
        ElseIf a = 55 Then
            Label4.Text = "王珂楠"
        ElseIf a = 56 Then
            Label4.Text = "陈浩城"
        ElseIf a = 57 Then
            Label4.Text = "彭梦楠"
        ElseIf a = 58 Then
            Label4.Text = "朱珺如"
        ElseIf a = 59 Then
            Label4.Text = "温  哲"
        ElseIf a = 60 Then
            Label4.Text = "郑  璇"
        ElseIf a = 61 Then
            Label4.Text = "毕民鹏"
        ElseIf a = 62 Then
            Label4.Text = "张文慧"
        ElseIf a = 63 Then
            Label4.Text = "顾添天"
        ElseIf a = 64 Then
            Label4.Text = "具煜晨"
        End If
    End Sub    Private Sub 开始ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 开始ToolStripMenuItem.Click
        Timer1.Enabled = True
        Button1.Text = "停止"
        开始ToolStripMenuItem.Visible = False
        停止ToolStripMenuItem.Visible = True
    End Sub    Private Sub 停止ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 停止ToolStripMenuItem.Click
        Timer1.Enabled = False
        Button1.Text = "开始"
        If Label2.Text = 40 Then
            MsgBox("本班没有40号，为保证抽取概率更平均故保留此号码，请重新抽取。")
        End If
        开始ToolStripMenuItem.Visible = True
        停止ToolStripMenuItem.Visible = False
    End Sub    Private Sub 关于ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 关于ToolStripMenuItem.Click
        MsgBox("       榕下听风点名器 V3.0 Beta1" & Chr(13) & "              详情请看更新记录" & Chr(13) & "                 榕下听风制作" & Chr(13) & "                  2008年11月")
    End Sub    Private Sub 帮助文档ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 帮助文档ToolStripMenuItem.Click
        Shell("hh.exe D:\software\点名器\help.chm", vbNormalFocus)
    End Sub    Private Sub 更新记录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 更新记录ToolStripMenuItem.Click
        System.Diagnostics.Process.Start("D:\software\点名器\更新记录.html")
    End Sub    Private Sub 建议ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 建议ToolStripMenuItem.Click    End Sub
End Class
我把窗口的布局和软件程序（是EXE哦）发上来。
（那个截图是XP系统下用了VISTA仿真器的，在家里。学校是纯VISTA）
（程序需要 .NET 3.5 才可以打开）
以上问题能回答几个的说几个，不一定一次性解决全部
截图和附件在下面这个网站，我传不上来
http://www.vbgood.com/viewthread.php?tid=76814