效果
那么先画一个组合框，在Click事件中写；
If Combo1.Text = "English" Then
'MsgBox RText("language\English.lan", 1)
Form1.Caption = RText("language\English.lan", 1)
Command1.Caption = RText("language\English.lan", 2)
cmdCommand2.Caption = RText("language\English.lan", 3)
lbl.Caption = RText("language\English.lan", 4)
Form2.lblCopyright2018.Caption = RText("language\English.lan", 5)
jjj.Caption = RText("language\English.lan", 6)
Form2.Caption = RText("language\English.lan", 7)
showerr = RText("language\English.lan", 8)
okk.Caption = RText("language\English.lan", 9)
' Jpg rar merge
Else
Form1.Caption = RText("language\Chinese.lan", 1)
Command1.Caption = RText("language\Chinese.lan", 2)
cmdCommand2.Caption = RText("language\Chinese.lan", 3)
lbl.Caption = RText("language\Chinese.lan", 4)
Form2.lblCopyright2018.Caption = RText("language\Chinese.lan", 5)
jjj.Caption = RText("language\Chinese.lan", 6)
Form2.Caption = RText("language\Chinese.lan", 7)
showerr = RText("language\Chinese.lan", 8)
okk.Caption = RText("language\Chinese.lan", 9)
End If
还需要在Combo1.list中写两行内容
English
Chinese
然后新建一个文件夹language
向这样的格式写内容

ok，完了

wtf，w**怎么就成广告了？？

Private Sub Form_Load()
showerr = "You canceled the file selection."
'Combo1.Text = "Chinese"
'‘MsgBox RText("language\English.lan", 1)
End Sub
Private Function RText(ByVal Tpath As String, y As Long) As String
freenumber = FreeFile
Open Tpath For Input As #freenumber
Do While Not EOF(1)
Line Input #freenumber, temp
x = x + 1
If x = y Then RText = temp: Exit Function
Loop
Close #freenumber
End Function'一个读文件函数