Private Sub ddd(ByVal filepath As String, ByVal file As Object)Dim aa() As Byte = fileMy.Computer.FileSystem.WriteAllBytes(filepath, aa, True)End Sub

โค๊ดห้ามใส่ตัวเลข

If Not IsNumeric(Me.Text) Then
MsgBox("คุณต้องใส่ตัวเลขเท่านั้นนะครับ")

Exit Sub

End If

ลิงค์

Process.Start("ชื่อเว็บ")

เล่นเพลงบน blackground

My.Computer.Audio.Play(My.Resources.ชื่อเพลง, AudioPlayMode.BackgroundLoop)

Link

โค๊ด

my.computer.Network.dowloadfile("www.google.com\file.exe")


หรือ

my.computer.Network.dowloadfile("url", "www.google.com\file.exe")
process.start("C:\file.exe")

ตั้งพาส

if name.name = "password" then

end if

Ex

if textbox.text = "password123" then

else
messagebox.show("พาสผิดนะครับ")
end if

โชว์ต่างๆ

Name.show()

เช่น Form2.show()