Posts by choudhuryshouvi

Installing runtime files will not solve your problem in some circumstances. Such is that probably you have used a third party activex control that is not installed in the system directory(In case of XP it is System32)of your operating system or such a control which is newer than what is your operating system presently has. Copy and paste the activex control(which is not installed)to the System32 folder. You'll find this folder under windows directory in the root drive of your os. After this click start->run and pass the following command :-

regsvr32 %systemroot%\system32\<your activex control name.ocx>

Hit enter. This will register the activex control in your XP os. After this your os will be able to create object of the said control. If possible just logoff and then login to the machine. Run the project by clicking .exe file. Your program will be run this time without having any problem.

you cannot make a mdiform borderless. instead of you can disable the close button on the titlebar of the mdiform. to disable the close button use this code :-

'declare these api functions in general section of the mdiform
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
ByVal bRevert As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private ReadyToClose As Boolean

'create a sub-routine like this
Private Sub RemoveMenus(frm As Form, remove_close As Boolean)
Dim hMenu As Long
hMenu = GetSystemMenu(hwnd, False)
If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub

'in load event add this
Private Sub MDIForm_Load()
RemoveMenus Me, True
End Sub

'within your exit option add this
ReadyToClose = True
End

'used stuffs :- list1 and its two arrays(0,1)

'displaying name along with its index of the selected control
Private Sub List1_Click(Index As Integer)
MsgBox List1(Index).Name & "(" & Index & ")"
End Sub

'dynamically adding items to all listboxes present on the current form
Private Sub Form_Load()
Dim ctlControl As Object
    On Error Resume Next
    For Each ctlControl In Me.Controls
        If TypeOf ctlControl Is ListBox Then
        ctlControl.AddItem "computer"
        DoEvents
        End If
    Next ctlControl
End Sub

u can show the blinking label in a separate form. when users match the squares disable current form(me.enable=false) and then display the form with blinking label in vbmodal mode(form2.show vbmodal).after the specified time of blinking disable the timer(timer1.interval=0),close the form(unload me) and enable the game form(form1.enable=true).