Label1.Show()
                Label2.Hide()
                Label3.Show()
                Label4.Hide()
                Label5.Show()
                Label6.Hide()
                Label7.Hide()
                Label8.Hide()
                Label9.Hide()
                Label1.Text = "環境線量率測定"
                Label3.Text = "放射能濃度測定"
                Label5.Text = "システム設定"
                Label1.Location = New Point((Me.Width - Label1.Width) / 2, (Panel1.Height - Label1.Height) / 5 - 20)
                Label3.Location = New Point((Me.Width - Label1.Width) / 2, (Panel1.Height - Label1.Height) * 2 / 5 - 20)
                Label5.Location = New Point((Me.Width - Label1.Width) / 2, (Panel1.Height - Label1.Height) * 3 / 5 - 20)             
                Select Case (RecData(2) & RecData(3))
                    Case "00"
                        Mode = Mode & "-进入本底测量询问"
                        Label1.Text = "更新する"
                        Label2.Text = "はい"
                        Label3.Text = "いいえ"
                        Label4.Text = "バックグラウンド値の前回測定時間"
                        Label1.Location = New Point((Me.Width - Label1.Width) / 2, (Panel1.Height - Label1.Height) / 5 - 20)
                        Label2.Location = New Point((Me.Width / 2 - Label2.Width) / 2, (Panel1.Height - Label1.Height) * 2 / 5 - 20)
                        Label3.Location = New Point(((Me.Width / 2) + (Me.Width / 2 - Label3.Width) / 2), (Panel1.Height - Label1.Height) * 2 / 5 - 20) 基于VB.NET的辐射报警仪上位机管理软件设计(18):http://www.youerw.com/tongxin/lunwen_2658.html