Cara menandai semua Teman diStatus Facebook secara CEPAT (Auto TAG)

Script Auto Tag

Silahkan ambil Script Auto tag nya. Click Here
Kemudia Copy semua Script nya.
Bila perlu simpan Script tersebut ke Notepad (biar aman).

Update Status Facebook anda

Buatlah sebuah status/tautan/foto terserah anda.
Atau boleh juga status yang sudah lama.
Kemudian ambil ID status anda seperti gambar dibawah ini.

Setelah itu ambil ID Facebook anda.
Cara nya bisa di lihat di Sini Click Here
Dari gambar diBawah ini , kita hanya mengambil Angka nya saja
Contoh punya saya :

Memulai Auto Tag

Buka kembali status anda yang tadi.
Kemudian Klik Kanan pilih Inspect Element

Maka akan terbuka Kolom , kemudian pilih Console
Kemudian Paste kan Code Script Auto Tag nya di Console

Kemudian Gulir ke atas ganti ID status dengan ID Status anda dan Ganti ID Facebook dengan ID Facebook anda.
Jika sudah benar-benar di ganti, Tekan Enter Dan Lihat Hasilnya

Cara Mengecek Kecepatan Loading Blog

Pada postingan kali ini , BLOGGER Mr17 akan membahas mengenai Cara Mengecek Kecepatan Loading Blog. Cara ini sudah sering digunakan untuk mengecek kecepatan loading Blog termasuk Blog saya. Nahh , bagi yang ingin tau mari simak Caranya berikut ini

Kunjungi Google Developer Page Speed Insight
Click Here

Tulis URL Blog kalian di kotak bawah ini :

Lalu Klik ANALYZE
Tunggu beberapa detik...
Dan akan muncul seperti ini

Angka 95 adalah kecepatan loading Blog kita. kecepatan loading ini maksimal sampai angka 100
Jadi , usahakan agar loading Blog anda Normal yaitu mencapai angka 90 keatas

NB : Saya memberitau bahwa kecepatan loading Blog saya adalah 95 dari 100

Sumber : Cyber4Share

Tips Agar Loading Blog Tidak Berat

Pada postingan kali ini BLOGGER Mr17 akan menulis tentang Tips Agar Loading Blog Tidak Berat .Kenapa menulis postingan mengenai ini ? Karena ini adalah salah satu hal yang penting dalam blog, terutama bagi pengunjung blog. Pengunjung blog akan malas mengunnjungi blog kita lagi jika loading blog kita manjadi berat. Nahh , berikut Tipsnya:

Kurangi Widget yang tidak penting
Menurut saya pakailah widget yang menurut anda penting , seperti Alexa, G+1 dan yang lainnya. Nahh , apa saja widget yang tidak penting tersebut ? Widget tersebut seperti peta pengunjung, jumlah pengunjug dan lagu atau video.

Template
Gunakanlah template yang simple, padat dan tidak berat . Karena , kebanyak template sekarang sudah banyak yang ditambah-tambahkan kode tertentu dan itu juga dapat membuat loading blog menjadi berat

Cek kembali Link keluar dan Masuk yang terdapat di Artikel dan Blogroll
Ceklah kembali link keluar dan masuk , siapa tau link tersebut sudah tidak berfungsi . Karena , jika link yang tidak berfungsi tersebut tidak dihapus , itu dapat memperberat loading blog kita.

Perkecil format gambar Blog
Gambar yang terdapat di blog saran saya menggunakan format jpg, png, dan gif saja. Karena , ketiga format tersebut tidak berat.

Sumber : Cyber4Share

Cara Mengetahui ID Facebook Melalui Username

Banyak cara mengetahui id facebook yang sudah menggunakan username, diantaranya melihat url foto, masuk ke graph facebook dan lain-lain.

Saya akan memberikan cara termudah dengan menggunakan Tool, cukup masukan username anda. Misal url facebook saya https://www.facebook.com/BloggerMr17, maka cukup masukan BloggerMr17 kemudian klik Get Facebook ID.

Berikut link Tool nya : Click Here

Membuat Link Dari Visual Basic 6.0 menuju Website

Source code berikut untuk membuat Link pada CommandButton Visual Basic 6.0.

Pada menu "New Project" pilih "Standard EXE"
Buat 1 Project dengan :
1 Command Button
1 Modul

Copy code dibawah ini dan Paste code tersebut di dalam CommandButton

Private Sub Command1_Click()
OpenURL "http://Blog17Lamers.blogspot.com", Me.hWnd
End Sub

Copy code dibwah ini dan Paste code tersebut didalam Modul

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub OpenURL(situs As String, sourceHWND As Long)
Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)
End Sub 

 http://Blog17Lamers.blogspot.com Bisa diganti dengan Alamat Website yang anda mau ...

Topologi Jaringan

Topologi jaringan adalah, hal yang menjelaskan hubungan geometris antara unsur-unsur dasar penyusun jaringan, yaitu node, link, dan station. Topologi jaringan dapat dibagi menjadi 6 kategori utama seperti di bawah ini.

• Topologi Bintang
• Topologi Cincin
• Topologi Bus
• Topologi Jala
• Topologi Pohon
• Topologi Linier

Mengalihkan CTRL+U Pada Blog (CTRL+U Redirect)

Bagi sobat yang ingin memproteksi blog/web dengan Ctrl+U, untuk meminimalisir para Jiplsilahkan simpan kode ini di atas </body>

<script type='text/javascript'>
//<![CDATA[
shortcut={all_shortcuts:{},add:function(a,b,c){var d=

 {type:"keydown",propagate:!1,disable_in_input:!1,tar

get:document,keycode:!1};if(c)for(var e in d)"undefin

ed"==typeof c[e]&&(c[e]=d[e]);else c=d;d=c.target,"st

ring"==typeof c.target&&(d=document.getElementById(c.

 target)),a=a.toLowerCase(),e=function(d){d=d||window

.event;if(c.disable_in_input){var e;d.target?e=d.targ

et:d.srcElement&&(e=d.srcElement),3==e.nodeType&&(e=e

.parentNode);if("INPUT"==e.tagName||"TEXTAREA"==e.tag

Name)return}d.keyCode?code=d.keyCode:d.which&&(code=d

.which),e=String.fromCharCode(code).toLowerCase(),188

 ==code&&(e=","),190==code&&(e=".");var f=a.split("+"

),g=0,h={"`":"~",1:"!",2:"@",3:"#",4:"$",5:"%",6:"^",

7:"&",8:"*",9:"(",0:")","-":"_","=":"+",";":":","'":'

"',",":"<",".":">","/":"?","\\":"|"},i={esc:27,escape

:27,tab:9,space:32,"return":13,enter:13,backspace:8,s

crolllock:145,scroll_lock:145,scroll:145,capslock:20,

caps_lock:20,caps:20,numlock:144,num_lock:144,num:144

,pause:19,"break":19,insert:45,home:36,"delete":46,en

d:35,pageup:33,page_up:33,pu:33,pagedown:34,page_down

:34,pd:34,left:37,up:38,right:39,down:40,f1:112,f2:11

3,f3:114,f4:115,f5:116,f6:117,f7:118,f8:119,f9:120,f1

0:121,f11:122,f12:123},j=!1,l=!1,m=!1,n=!1,o=!1,p=!1,

q=!1,r=!1;d.ctrlKey&&(n=!0),d.shiftKey&&(l=!0),d.altK

ey&&(p=!0),d.metaKey&&(r=!0);for(var s=0;k=f[s],s<f.l

ength;s++)"ctrl"==k||"control"==k?(g++,m=!0):"shift"=

=k?(g++,j=!0):"alt"==k?(g++,o=!0):"meta"==k?(g++,q=!0

):1<k.length?i[k]==code&&g++:c.keycode?c.keycode==cod

e&&g++:e==k?g++:h[e]&&d.shiftKey&&(e=h[e],e==k&&g++);

 if(g==f.length&&n==m&&l==j&&p==o&&r==q&&(b(d),!c.pro

pagate))return d.cancelBubble=!0,d.returnValue=!1,d.s

topPropagation&&(d.stopPropagation(),d.preventDefault

()),!1},this.all_shortcuts[a]={callback:e,target:d,ev

ent:c.type},d.addEventListener?d.addEventListener(c.t

ype,e,!1):d.attachEvent?d.attachEvent("on"+c.type,e):

d["on"+c.type]=e},remove:function(a){var a=a.toLowerC

ase(),b=this.all_shortcuts[a];delete this.all_shortcu

ts[a];if(b){var a=b.event,c=b.target,b=b.callback;c.d

etachEvent?c.detachEvent("on"+a,b):c.removeEventListe

ner?c.removeEventListener(a,b,!1):c["on"+a]=!1}}},sho

rtcut.add("Ctrl+U",function(){top.location.href="http

://URL Target/"});
//]]>
</script>

Ganti http://URL Target/ , dengan URL tujuan. Untuk DEMO, silahkan Ctrl+U sekarang.

Cara Membuat Efek Kelelawar Terbang di Blog

1.Masuk ke Blogger.
2.Pilih Tata Letak
3.Klik Tambah Gadget
4.Pilih HTML/JavaScript
5.Copy script dibawah ini lalu pastekan

<script src='http://lamersblogger.googlecode.com/files/kelelawarterbang.js'/></script>

6.Lalu klik Simpan

Cara Sedikit Mempercepat Download Di IDM (Proxy)

1.Buka Situs Hidemyass.
2.Pilih IP:Port Proxies.
3.Centang LOW pada bagian label Anonymity level , Speed dan Connection time lalu klik Update Result.
4.Setelah itu anda akan melihat list/daftar proxy dan portnya di seluruh dunia.
5.Copy dan paste di IDM kamu.
6.Buka IDM - Downloads - Options - Proxy/Socks, Centang Di Proxy Server Address dan Portnya http, https, ftp dan klik OK

Catatan :
• Trik ini kemungkinan gagal karena beberapa proxy dan port setiap negara berbeda-beda.
• Cobalah ganti dengan yg lain seperti negara negara Amerika latin karena disana proxynya cepat
• Beberapa proxy mungkin membutuhkan waktu agar dapat melihat hasilnya...

Cara Membuat Efek Energy Saving Mode di Blog

1.Masuk ke Blogger.
2.Pilih Template.
3.Klik Edit HTML.
4.Untuk Mengantisipasi Kesalahan , Lakukanlah BACKUP data terlebih dahulu.
5.Cari code </head>.
6.Copy script dibawah ini dan paste dibawah code </head>.

<script language='javascript' src='http://lamersblogger.googlecode.com/files/SavingModeEnergies.js?time=10' type='text/javascript'/>

Silahkan kamu ganti Angka 10 sesuai beberapa detik yg kamu mau efek tersebut muncul nantiny. 

7.Tinggal klik Simpan Template dan lihat hasilnya.

Cara Membuat Link di Blog Open New Tab Otomatis

1.Masuk ke Blogger.
2.Pilih Template.
3.Klik Edit HTML.
4.Untuk Mengantisipasi Kesalahan , Lakukanlah BACKUP data terlebih dahulu.
5.Cari code </head>.
6.Kemudian copy script dibawah ini dan paste diatas code </head>.


<base target='_blank' />


7.Tinggal klik Simpan Template dan lihat hasilnya.

Cara Membuat Efek Animasi Page Loading di Blog

1.Masuk ke Blogger.
2.Pilih Template.
3.Klik Edit HTML.
4.Untuk Mengantisipasi Kesalahan , Lakukanlah BACKUP data terlebih dahulu.
5.Cari code <body>
6.Kemudian Ganti code <body> dengan code berikut dibawah ini :

<body onLoad='init()'>
<div id='loading' style='position:absolute; width:100%; text-align:center; top:300px;'><img border='0' src='https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhT8ive4BaTrGZQaO1HdDnPBO1HHZR6wzaICfJWCe_hmyiZfQFzy3y4BQXqQod31jE10ijqiB84aBqO5kermNczQ11oCBxcEIlnpeV6UaBfi_5o_WywKUg7VdS59FMotIHN9IPXN_tju9nc/s1600/loading1.gif'/></div><script src='http://lamersblogger.googlecode.com/files/page-loading.js' type='text/javascript'/>

7.Tinggal klik Simpan Template dan lihat hasilnya.

Silahkan ganti alamat URL yang berwarna MERAH dengan gambar animasi yang kamu suka.


Beberapa alamat URL gambar animasi loading kemungkinan ada yang kamu suka.

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhT8ive4BaTrGZQaO1HdDnPBO1HHZR6wzaICfJWCe_hmyiZfQFzy3y4BQXqQod31jE10ijqiB84aBqO5kermNczQ11oCBxcEIlnpeV6UaBfi_5o_WywKUg7VdS59FMotIHN9IPXN_tju9nc/s1600/loading1.gif

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5vloFx_Ds1oI0xXwq50d6vzVwmeffuaXDucusowpIgEL5k9qjRN7lG6CKwO-8sUsslhj6OT5awQgdnohEMiMetT5DiiTZ2rbZ7k9zsvzSMPKokUSfZqBU9qg81ZpNkgsWXFQu0Y9q7iAk/s1600/loading2.gif

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxO5EnCO1UmZ0KwIKrAnPgz66n-mDTE2J9xhTZt_CMd5BsQLcjMgIIi5pFDUAhp-QeJKHMcN3HRYgaO9KrBHJO6RT79qSpkumhX4WkCE7Jal0_yJE5hy5eoeQMV-mAJye0p44HDmLHzh_d/s1600/loading3.gif

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkfxZ17HDXdXzfRu21okuH1M6BnGl3yEXqZoHAmZtZeevVP1eMQ4ErRWX9YZJEaoH4XSXt901WLwRNDlKfDODqvx5qMgFJ5sXR1Y9smm2gLsuLT-euARoXU3tXugHeaMPXtd1p1aEsJtFy/s1600/loading4.gif

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxrFPfuoq98CWCn6AxjOSYhlYlq7dvmn9rVP27me7L9t0qjazIeB5rVQDGGfl55iNuF6bPF6g-xWpJD0E0I2VPfTpO9oYnFA3p19AAleCwIdtNs2W0rnWMsBVBfyn6ktZmTKYL9eIoygzR/s1600/loading5.gif

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXaBsLRmlZOSycBPI97TuQl-_TMCQbnqwzQ7dty3iEkUEeFkjB-aXkw2ymSZST8MUXK3eIdXr1CRoRi2AAYqeDjgGLwAXJxAIlm7Dw3m2s5cIjVbJGULPeDRM-vECr5U1C7RoDIyyV9XDl/s1600/loading6.gif

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4y2RKx7ov8GraPZ1g5JRrUdL8A-9bTLpVggtTEIrviDMqxin91usJyFddDNomZj_w1jY-CgNytJ1lgvbylGWBrOgnsE1ce9rUzvlQECKmUCqrMutajpVFEtRZi6kTA5Y_8xhAR9zSDbvu/s1600/loading7.gif

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjX-clgTN8vSYB7rT2MgwSG_HFq8COesrahrTkGmD5F-1aP8kk6ROFsFno7a7q5Sj49_f6vIqeVPgfcfHkc_WR62kLHGc3vzhsx_5n4OIgQCp-7w4IFH9A5V1CgLuzDdmHO4gE7NtZ5EbeI/s1600/loading8.gif

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9WMVX1DXm88H00FqsvLPqGRvnklWZ74TVQ4RCIM8IXMtEWuHQQAq6WKO7MKWvUWICzfQ9KfWMWoLj6sENPmGORiA_lauQAs2uHJrMTtsWAKNuaBy9MYtd77yadn1nxhvcQkn9OupN8165/s1600/loading9.gif

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDBtt7jOwPXxMPW6S5vjzfuhD7yNInFIcm78givkFKxNGy9hcRQFG_nXxzy46QaOJ2s1L3iGxZoWfqEVJ2lOiNqsiZPi5ATv_vZeIjjLHqZEyfLIFZOjdF9eD5xob1pfdYZQenSKO1D9r9/s1600/loading10.gif

Cara Membuat Blogroll Memakai Scroll

1.Masuk ke Blogger.
2.Pilih Tata Letak.
3.Pilih HTML/JAVASCRIPT.
4.Masukan/pilih salah satu code dibawah ini.

• Blogroll Biasa(tidak memakai open link in new tab).

<div style="border:1px solid#000000;overflow:auto;width:170px;height:100px;">
<ul>
<li><a href="http://Blog17Lamers.blogspot.com/">BLOGGER Mr.17</a></li>
<li><a href="Edit">Judul Blog</a></li>
<li><a href="Edit">Judul Blog</a></li>
</ul>
</div>

• Blogroll memakai open link in new tab.

<div style="border:1px solid#000000;overflow:auto;width:170px;height:100px;">
<ul>
<li><a href="http://Blog17Lamers.blogspot.com/" target="new">BLOGGER Mr.17</a></li>
<li><a href="Edit" target="new">Judul Blog</a></li>
<li><a href="Edit" target="new">Judul Blog</a></li>
</ul>
</div>

Scroll untuk Gambar/Banner.

<div style="border:1px solid#000000;overflow:auto;width:170px;height:100px;">
<ul>
<li><a href="http://Blog17Lamers.blogspot.com/" target="new"><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBBaGNoF0J6CP2RMauLYRoQvkadxNpBUOIknN_BiHDmEYVy-C0TgNjem8if_iH22iBcdfecbEh5_tee4ZuRhNe9TnUFp3YLjvsGZTNebXuynhmZ6Q2l3w2OwQYZgk_AfZNs_e9JosmbAY/h89/BLOGGER+Mr17.png" height="75" width="200"/></a></li>
<li><a href="Edit" target="new"><img src="Url Gambar" height="150" width="200"/></a></li>
</ul>
</div>  

warna Biru : untuk mengatur warna border dan tipe nya
warna Ungu : mengubah ukuran lebar dan Tinggi widget
warna Merah : ubah menjadi URL/LINK
warna Hijau : ubah dengan Judul

Membuat Link Dari Visual Basic 6.0 Ke Internet

Source code berikut untuk membuat Link pada Label Visual Basic 6.0.

Buat 1 Project dengan :
1 Label
Copy source code berikut pada Form :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function SetWindowPos Lib "user32" (ByVal h As Long, ByVal hb As Long, ByVal X As Long, _

    ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal F As Long) As Long

Const SWP_NOMOVE = 2

Const SWP_NOSIZE = 1

Const flags = SWP_NOMOVE Or SWP_NOSIZE

Const HWND_TOPMOST = -1

Const HWND_NOTOPMOST = -2

 
Private Sub Label1_Click()
ShellExecute Me.hWnd, "Open", "http://Blog17Lamers.Blogspot.com", vbNullString, vbNullString, 3
End Sub

Membuat Teks Kelap-Kelip Pada Visual Basic 6.0

Source code berikut untuk membuat tulisan pada label (teks) kelap-kelap berwarna-warni.

Buat 1 project dengan :
1 Form
1 Label
1 Timer
Copy source code berikut pada Form :

Dim i As Long

Dim merah, hijau, biru As Integer

Private Sub Form_Load()

  i = 0     'Inisialisasi detik

  Timer1.Interval = 100   'Kalau 1000 biasanya lompat 1 detik

  Label1.Caption = "Ini contoh tulisan kelap-kelip"

End Sub

Private Sub Timer1_Timer()

  i = i + 1

  If i = 1000000 Then i = 0 'Supaya tdk overflow, dsb...

  merah = Int(255 * Rnd)    'Bangkitkan angka random untuk merah

  hijau = Int(255 * Rnd)    'Bangkitkan angka random untuk hijau

  biru = Int(255 * Rnd)     'Bangkitkan angka random untuk biru

  Label1.ForeColor = RGB(merah, hijau, biru)   'Campur tiga warna

  If i Mod 2 = 0 Then       'Jika counter habis dibagi 2

     Label1.Visible = True  'Tampilkan label

  Else                      'Jika counter tidak habis dibagi 2

     Label1.Visible = False 'Sembunyikan label

  End If                    'Akhir pemeriksaan

End Sub

Kalimat Berjalan Pada Label di Form Visual Basic 6.0

Contoh source code berikut untuk membuat kalimat berjalan pada label di form.

Buat 1 project dengan :
1 Form
1 Timer (set interval = 100)
1 Label

Copy source code berikut pada Form :

Dim counter As Integer

Private Sub Timer1_Timer()

    Dim Kalimat As String

    Kalimat = "Ini adalah contoh kalimat berjalan"

    counter = counter + 1

    DoEvents

    Label1.Caption = TulisJalan(counter, Kalimat, 30)

End Sub

Public Function TulisJalan(hitung As Integer, strKalimat As String, _

                           Panjang As Integer)

  If hitung = Len(strKalimat) + Panjang Then

     hitung = 0

  ElseIf hitung > Len(strKalimat) Then

     TulisJalan = strKalimat & Space(hitung - Len(strKalimat))

  Else

     TulisJalan = Mid(strKalimat, 1, hitung)

  End If

End Function

Membuat Judul Form Berjalan Visual Basic 6.0

Source code berikut untuk membuat teks berjalan pada caption form.

Buat 1 project dengan :
1 Form
1 Timer (set interval = 200)
Copy source code berikut pada Form :

Dim teksJalan As String

Private Sub Form_Load()
teksJalan = "Teks ini berjalan pada caption Form. "
End Sub

Private Sub Timer1_Timer()
a = Left(teksJalan, 1)
c = Len(teksJalan)
b = Right(teksJalan, c - 1)
teksJalan = b + a
Form1.Caption = teksJalan
End Sub

Membuat Judul Form Menjadi Rata Tengah Pada Visual Basic 6.0

Untuk membuat judul form di tengah tidak lah sulit, anda cukup meletakkan code tersebut di Form Loadnya saja .

Private Sub Form_Load()
Move (Screen.Width - Width) / 2, (Screen.Height - Height) * 0.5
End Sub

Konversi Detik Ke Jam Menit Detik Pada Visual Basic 6.0

Source code berikut untuk mengonversi detik ke jam menit detik. Misalkan jika input 3660 detik, maka output yang dihasilkan adalah 1 Jam 1 Menit 0 Detik.

Buat 1 project dengan :

1 Form.

1 TextBox.

1 CommandButton.

Copy source code berikut pada Form :

Private Sub Command1_Click()

    Dim hour, minute, second As Long

    Dim a, b, c, d As Long

    a = Text1.Text

    hour = Int(a / 3600)

    b = hour * 3600

    minute = Int((a - b) / 60)

    second = a - b - (minute * 60)

    MsgBox "Hasil konversi = " & hour & " jam " & minute & " menit " & second & " detik ", vbOKOnly

End Sub

Membuat From Agar Tidak Bisa Di Close Pada Visual Basic 6.0

Source code untuk membuat Form agar tidak bisa di Close.
Tombol Close pada Form di Disable sehingga Form tersebut tidak bisa di Close.

Buat 1 Project dengan :
1 Form
Copy source code berikut pada Form :

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Sub DisableCloseBtn(ByVal Frm As Form)
Dim h As Long
h = GetSystemMenu(Frm.hwnd, 0)
RemoveMenu h, 6, &H400
RemoveMenu h, 5, &H400
End Sub

Private Sub Form_Load()DisableCloseBtn MeEnd Sub

Membuat Form Agar Tidak Bisa Di Resize Pada Visual Basic 6.0

Source code untuk membuat Form agar tidak bisa di Resize.
Tombol Resize pada Form di Disable sehingga Form tersebut tidak bisa di Resize.

Buat 1 Project dengan :
1 Form
Copy source code berikut pada Form :

Private Const GWL_STYLE = (-16)

Private Const WS_THICKFRAME = &H40000

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long, _

        ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()

Dim lStyle As Long

    lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)

    lStyle = lStyle And Not WS_THICKFRAME

    Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)

End Sub