Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim jikan As String '設定jikanの宣言 jikan = My.Settings.Jikan TextBox1.Text = (Strings.Left(jikan, 2))'1000の値を左から2番目まで抜き出す End Sub
Me.TextBox1.AppendText("00") ' テキストの末尾に文字列を追加する My.Settings.Save() Me.Close()