- Buatlah project baru
- Tempatkan satu TextBox pada Form
- Copy dan pastekan kode di bawah ini:
- Jalankan.
Option Explicit
Private Sub Form_Resize()
With Text1
.Top = Me.ScaleTop
.Left = Me.ScaleLeft
.Width = Me.ScaleWidth
.Height = Me.ScaleHeight
End With
End Sub Private Sub Form_Resize()
With Text1
.Top = 0
.Left = 0
.Width = Me.Width
.Height = Me.Height
End With
End Sub Apalagi yang ini:Option Explicit
Private Sub Form_Resize()
With Text1
.Top = Me.Top
.Left = Me.Left
.Width = Me.Width
.Height = Me.Height
End With
End Sub Coba Anda perhatikan dengan seksama apakah perbedaannya?Catatan: Settinglah property Text1 .MultiLine = True dan .ScrollBar = 3 -Both
