Imports System.IO Imports System.Text Public Class 列印選擇 Private Sub 線路選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load If 風格啟用 = True Then : 風格() : End If End Sub Private Sub 線路選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown If 系統語言 = "繁體中文" Then : Me.Text = "線路選擇" ElseIf 系統語言 = "English" Then : Me.Text = "Line Selection" ElseIf 系統語言 = "Indonesian" Then : Me.Text = "Pemilihan Jalur" : End If End Sub Private Sub 總部_rbt_Click(sender As Object, e As EventArgs) Handles 總部_rbt.Click 車廠型態 = True : Me.Close() End Sub Private Sub 測試_rbt_Click(sender As Object, e As EventArgs) Handles 測試_rbt.Click 車廠型態 = False : Me.Close() End Sub Private Sub 風格() End Sub End Class