Source Code VB

Buat 1 buah command dan beri nama OK

Private Sub OK_Click()
Dim userMsg As String

userMsg = InputBox(”What is your message?”, “Message Entry Form”, “Enter your messge here”, 500, 700)
If userMsg <> “” Then
message.Caption = userMsg
Else
message.Caption = “No Message”
End If

End Sub

Note:
userMsg berfungi untuk memasukkan message yang akan ditampilkan

sumber:programmervb.blog.com