bankBindingSource.Filter = "nam like"%" + TextBox5.Text + "%" "       filter dataset

Dim z As New Globalization.CultureInfo("fa-ir")
        InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(z)

  If My.Computer.Network.IsAvailable = True Then
            MessageBox.Show("ok")
        Else
            MessageBox.Show("er")
        End If

پس  از کشیدن عنصر AxShockwaveبر روی لود شدن فرم کد زیر را مینویسیم

 AxShockwaveFlash1.Stop()

AxShockwaveFlash1.Movie = Application.StartupPath &

"\clock.swf"

AxShockwaveFlash1.Play()

این دستور  رو در رویداد کی پرس فرم یا هر آبجکت دیگری مینویسیم

if e.keychar=chr(13) then

e.handele=true

{"(sendkey.send ("{tab

end if 

ما در اینجایک باتون را به عنوان مثال روی صحفه به حرکت در میآوریم

در قسمت موس آپ مینویسیم

dim down as boolean

down=false

در قسمت موس دون مینویسیم

dim t, w as intiger

w=e.y

t=e.x

در قسمت موس موو مینویسیم

if down =true then

button1.left +=e.y-w

button1.top +=e.x-t

end if

کلا" در قسمت زیر شما میتوانید جزئیات ظرفیت و تغییر نام  درایو و خیلی دیگه کار انجام بدید بعنوان مثال ظرفیت درایو سی را میگیرم

label1.text=my.computer.filesystem.getdriveinfo"c".totalsize

در اینجا یو یک متغییر و وقتی که با 2 مساوی شود یعنی عملیات شناسائی فلش با موفقیت انجام گرفته

dim u as string

u= my.computer.filesystem.getriveinfo("drive name").drivetype

if u="2" then

msgbox""

end if

در کد زیر تی زمان خاموش شدن بر حسب ثانیه است

و میتوانید بجای  اس   آر را بنویسید تا سیستم ریستارت شو

"System.Diagnostics.Process.Start "shutdown.exe"," -s -t 20

Private Sub Button15_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button15.Click
        System.Diagnostics.Process.Start("www.winco.software.com")
    End Sub