クラス「LoginForm1」の作成
プログラム実行時に読み込まれるコードの作成
クラス「dofile」のインスタンスが必要です。

IDとPWの値を定数でフィールド部分に記入します。
Public Class LoginForm1
Dim filework As New dofile 　　　 'Class dofileのインスタンス
Const ID As String = "yahoo" 　　　 'IDは"yahoo"に設定しました。
Const PW As String = "1234" 　　　 'IDはPWは"1234"に設定しました。




クラス「dofile」のfileread() メソッドを呼び出して、前回保存したファイルの内容を読み込みます。
filework.fileread()

前回保存のCheckBoxの値がTrueの場合は、ID、PWの前回保存の値を各TextBoxに代入します。
If filework.bool = True Then
～～～～～～～

前回保存のCheckBoxの値がTrue以外の場合は、TextBoxに""を代入します。
Else

自動ログインします。自動ログインをしない場合は下記のコードを削除してください。
OK_Click() ←このコードは普通のメソッドと考えればいいです。

前回保存のCheckBoxの値がTrue以外の場合は、各TextBoxは空にします。

最初に読み込むコードの全文です。

Public Class LoginForm1

Dim filework As New dofile 'Class dofileのインスタンス
Const ID As String = "yahoo" 'IDは"yahoo"に設定しました
。 Const PW As String = "1234" 'IDはPWは"1234"に設定しました。

Private Sub f() Handles MyBase.Shown

filework.fileread() 　　 'ファイルの読み込み

If filework.bool = True Then 　　 '3列目が"True"の場合の処理
UsernameTextBox.Text = filework.id　　 'IDの欄に1列目の項目を代入
PasswordTextBox.Text = filework.pw 　　 'PWの欄に2列目の項目を代入
PasswordTextBox.PasswordChar = "*"c 　　 'PWが＊＊＊＊になるようにする
CheckBox1.CheckState = CheckState.Checked 　　 'CheckBox1にチェックを入れる
OK_Click() 　　 '
Else '3列目が"True"の場合以外の処理
UsernameTextBox.Text = ""
PasswordTextBox.Text = ""
End If
End Sub

'この間に、OK_ClickイベントとCancel_Clickイベントを記入します。

End Class

　

「OK」ボタンのクリックイベントです。
この中でForm1のインスタンスを作成します。

TextBoxに入力されたID,PWが正しいか判断するIf文を作成します。正しい場合は「idpwblsave」を呼び出して 各値を保存します。

Form1を表示してMe.Closeします。
Private Sub OK_Click() Handles OK.Click
Dim f1 As New Form1 　　 'Class Form1のインスタンス
Dim bl As Boolean

'ID,PWの判断
If UsernameTextBox.Text = ID AndAlso PasswordTextBox.Text = PW Then
bl = CheckBox1.CheckState 　　 'CheckBox1の状態を blに代入
filework.idpwblsave(ID, PW, CStr(bl))　　 'ファイル保存のメソッド
f1.Show()
Me.Close()
ElseIf UsernameTextBox.Text <> ID Or PasswordTextBox.Text <> PW Then
MsgBox("ID、PWを入力し直してください。")
Return
End If
End Sub

　

後は Cancel_Clickイベントに MsgBoxを記入すればクラス「LoginForm1」は完成です。