Membuat Judul Form Rata Tengah

Pernahkah Anda ingin membuat judul form (form caption) Anda kira-kira menjadi kelihatan rata tengah? Berikut ini solusinya.
Code :

'Deskripsi: Membuat judul form Anda kira-kira kelihatan rata tengah
'Pembuat : Diterjemahkan oleh Masino Sinaga (admin@masinosinaga.com)
'Diupload : Jumat, 10 Mei 2002
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Module.
' 2. Copy-kan coding berikut ke dalam editor form & module ybt.
'----------------------------------------------------------------------------

'Coding ini di Module...
Public Sub CenterC(frm As Form)
Dim SpcF As Integer 'Jumlah spasi yg dapat muat
Dim clen As Integer 'Panjang tulisan
Dim oldc As String 'Tulisan yg lama
Dim i As Integer
oldc = frm.Caption
Do While Left(oldc, 1) = Space(1)
DoEvents
oldc = Right(oldc, Len(oldc) - 1)
Loop
Do While Right(oldc, 1) = Space(1)
DoEvents
oldc = Left(oldc, Len(oldc) - 1)
Loop
clen = Len(oldc)
If InStr(oldc, "!") <> 0 Then
If InStr(oldc, " ") <> 0 Then
clen = clen * 1.5
Else
clen = clen * 1.4
End If
Else
If InStr(oldc, " ") <> 0 Then
clen = clen * 1.4
Else
clen = clen * 1.3
End If
End If
'Periksa berapa karakter dapat muat
SpcF = frm.Width / 61.2244 'Berapa banyak ruang yg
'tersedia di caption tsb
SpcF = SpcF - clen
If SpcF > 1 Then
DoEvents 'Mempercepat program
frm.Caption = Space(Int(SpcF / 2)) + oldc
Else 'Jika form terlalu kecil untuk spasi
frm.Caption = oldc
End If
End Sub
'--- Akhir coding di Module...

'Coding ini di Form...
Dim oldsize As Long

Private Sub Form_Resize()
If Me.Width = oldsize Then 'Jika lebar form berubah
Exit Sub 'tidak perlu mengubah letak captionnya.
Else
CenterC Me
oldsize = Me.Width
End If
End Sub

Private Sub Form_Load()
CenterC Me
oldsize = Me.Width
End Sub
'--- Akhir Coding di Form...

Sumber Artikel :http://www.masinosinaga.com by.iby